Board logo

標題: 抓網頁到工作表，有欄位抓不到？ [打印本頁]
作者: t8899    時間: 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
作者: joey0415    時間: 2021-3-18 13:31

抓不到最右邊“詳細資料”的欄位 ？？
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



[attach]33140[/attach]
作者: t8899    時間: 2021-3-18 14:18

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



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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)