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

t8899

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

joey0415

抓不到最右邊“詳細資料”的欄位 ？？
sub abc12()
   Dim A As Object, E As Object
    With Create ...
t8899 發表於 2021-3-18 07:05

詳細資料中的html內容：
document.fm_t05sr01_1.SEQ_NO.value='1';document.fm_t05sr01_1.SPOKE_TIME.value='130602';document.fm_t05sr01_1.SPOKE_DATE.value='20210318';document.fm_t05sr01_1.COMPANY_ID.value='1583';document.fm_t05sr01_1.skey.value='1583202103181';openWindow(this.form ,'');

網頁連結
https://mops.twse.com.tw/mops/web/ajax_t05sr01_1?encodeURIComponent=1&TYPEK=all&step=1&skey=1583202103181&hhc_co_name=&firstin=true&COMPANY_ID=1583&COMPANY_NAME=&SPOKE_DATE=20210318&SPOKE_TIME=130602&SEQ_NO=1

• 先找到https://mops.twse.com.tw/mops/web/t05sr01_1中網頁語法相關元素
  
• 再比對上法所需關鍵字代入
  
• 輸入正確網址
  
• excel 簡單錄製即可下載
  

下載 (41.8 KB)

2021-3-18 13:28

t8899

詳細資料中的html內容：
document.fm_t05sr01_1.SEQ_NO.value='1';document.fm_t05sr01_1.SPOKE_TIME. ...
joey0415 發表於 2021-3-18 13:31

    我只想將“詳細資料”抓入儲存格內，詳細資料的內容可用超連結方式browser 開啟？？