- 帖子
- 759
- 主題
- 249
- 精華
- 0
- 積分
- 1021
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-24
|
[發問] 用 createDocumentFromUrl 代替 IE 的方式下載網頁資料 ???
http://mis.twse.com.tw/stock/gro ... ind=TIDX#STATISTICS
此網頁 可以用 createDocumentFromUrl 或 Mshtml.HTMLDocument "代替IE" 的方式下載網頁的資料嗎 ??
ie方法的效能很差，因為開啟 IE 要時間，分析文件也要時間。所以整體的時間拉的很長。
Option Explicit
Sub Ex_匯入Table()
Dim i As Integer, S As Integer, K As Integer, J As Integer
Dim Element
With CreateObject("InternetExplorer.Application")
'.Visible = True '可顯示網頁
.Navigate "http://mis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
Set Element = .document.getelementsbytagname("table")
On Error Resume Next
With Sheets(1)
.Cells.Clear
'For s = 0 To element.Length - 1 '不知此網頁的table內容:請先行測試網頁的完整table內容
For S = 0 To 3 '已找出網頁的table內容在 0-3 中
For i = 0 To Element(S).Rows.Length - 1
K = K + 1
For J = 0 To 5 '資料的欄位共6位
.Cells(K, J + 1) = Element(S).Rows(i).Cells(J).innerText
'********************************************
'不知此網頁的table內容:先行列出 table 位置 *
'Sheets(2).Cells(k, J + 1) = s '*
'********************************************
Next
Next
Next
.Cells.EntireColumn.AutoFit '自動調整欄寬
.Cells.EntireRow.AutoFit '自動調整列高
End With
.Quit
End With
Set Element = Nothing
MsgBox "0K"
End Sub |
|
發表於 2015-1-8 15:37
| 
