- 帖子
- 40
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win8
- 軟體版本
- Office2013
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2014-12-9
- 最後登錄
- 2021-7-2
 
|
網頁轉檔問題 !!
目前使用 QueryTables 下載資料 , 但執行費時 ( 不知網頁/硬體/網路....那問題 ) ,
試著學改用以下方法進行 , 目前myHTML有抓到資料 , 但myTables中則沒有資料 ( 依參考方式試著解析網頁參數 , 仍無解 )
請問以下語法那有問題 ??
Sub Test()
Dim myXML As Object
Set myXML = CreateObject("Microsoft.XMLHTTP")
Dim myHTML As Object
Set myHTML = CreateObject("HTMLfile")
With myXML
.Open "GET", "https://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=1723&SYEAR=2019&SSEASON=1&REPORT_ID=C", False
.send
myHTML.body.innerHTML = .responseText
t = 0
'Call delay(3)
Set myTables = myHTML.getElementsByTagName("table")
For Each myTable In myTables
For Each myRow In myTable.Rows
For Each myCell In myRow.Cells
Debug.Print myCell.innerText & "---" & t
Next
Next
t = t + 1
Next
End With
Set myXML = Nothing
Set myHTML = Nothing
End Sub |
|
發表於 2019-7-19 11:45
| 
