返回列表 上一主題 發帖

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

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-26 
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
收藏 分享

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-26 
3#
發表於 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 開啟？？

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 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


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

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題