PTT數位生活區 / Visual_Basic

[VBA ]請教 VBA 連接 IE 抓取資料

看板Visual_Basic作者 (qaz0955qaz)時間2年前 (2021/06/30 00:55), 編輯推噓1(1推 0噓 8→)
留言9則, 1人參與, 2年前最新討論串1/1
請教一下，底下的VBA 程式碼如何抓取網頁中的資訊如下 "統一編號：22099131, 登記機關：科技部新竹科學園區管理局 , 登記現況：核准設立 , 地址：新竹科學園區新竹市力行六路8號 , 資料種類：公司 , 核准設立日期： 0760221, 核准變更日期：1100625" Sub test() Dim oIE As Object, oNode As Object Set oIE = CreateObject("InternetExplorer.Application") With oIE .Visible = True .Navigate "https://findbiz.nat.gov.tw/fts/query/QueryBar/queryInit.do" Do While .Busy Or .ReadyState <> 4: DoEvents: Loop .document.all("qryCond").Value = "台灣積體電路" .document.getElementById("qryBtn").Click Application.Wait Now + TimeValue("00:00:05") End With End Sub 謝謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 39.11.103.176 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1624985707.A.EFE.html
推
07/04 14:27, 2年前 , 1F
wait now 那段改成
07/04 14:27, 1F
→
07/04 14:27, 2年前 , 2F
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
07/04 14:27, 2F
→
07/04 14:27, 2年前 , 3F
然後
07/04 14:27, 3F
→
07/04 14:28, 2年前 , 4F
Text = oIE.Document.getElementById("vParagraph").in
07/04 14:28, 4F
→
07/04 14:28, 2年前 , 5F
nertext
07/04 14:28, 5F
→
07/04 14:29, 2年前 , 6F
然後就到end with了
07/04 14:29, 6F
→
07/04 14:29, 2年前 , 7F
然後 oIE.Quit
07/04 14:29, 7F
→
07/04 14:30, 2年前 , 8F
set oIE = Nothing
07/04 14:30, 8F
→
07/04 14:30, 2年前 , 9F
END SUB
07/04 14:30, 9F
‣ 更多 qaz0955qaz 的文章
文章代碼(AID): #1Wsr1hx- (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 qaz0955qaz 的文章
文章代碼(AID): #1Wsr1hx- (Visual_Basic)