返回列表下一主題上一主題發帖

抓網頁到工作表，有欄位抓不到？

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-4-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-3-18 07:05 | 顯示全部帖子

抓網頁到工作表，有欄位抓不到？

https://mops.twse.com.tw/mops/web/t05sr01_1
抓不到最右邊“詳細資料”的欄位？？
sub abc12()
Dim A As Object, E As Object
With CreateObject("InternetExplorer.Application")
.Navigate "https://mops.twse.com.tw/mops/web/t05sr01_1"
  Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 3
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
      Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
         For Each E In .document.ALL.TAGS("div")
            If E.ID = "table01" Then
                  .document.body.innerHTML = E.outerHTML
            Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
                  .ExecWB 17, 2    '  Select All
                  .ExecWB 12, 2    '  Copy selection
            With ActiveSheet
            .Cells(1, 6).Select
                     .PasteSpecial Format:="HTML"
                           End With
            End If
         Next
   .Quit
      End With
end sub