Dim oDoc As Object
Dim sDoc As Object
Dim iText As String
Cells.Clear
Set oDoc = Me.WebBrowser1.Document
Set sDoc = Me.WebBrowser1.Document
For DocElemsCnt = 0 To oDoc.all.Length - 1
'tagName:獲取對象的標籤名稱。
If oDoc.all.Item(DocElemsCnt).tagName = "TABLE" Then
Set sDoc = oDoc.all.Item(DocElemsCnt)
If Left(VBA.Replace(sDoc.innertext, " ", ""), 5) = "我的排位表" Then
If sDoc.uniqueID = "ms__id2" Then
rCol = 0
'sDoc.Rows.Length:取得TABLE(表格)的列數 Row
For RwLen = 0 To sDoc.Rows.Length - 1
rCol = rCol + 1
'取得TABLE(表格)的欄數 Column
For CoLen = 0 To sDoc.Rows(RwLen).Cells.Length - 1
iText = sDoc.Rows(RwLen).Cells(CoLen).innertext
Cells(RwLen + 1, CoLen + 1).Value = iText
Next CoLen
Next RwLen
End If
End If
End If
Next DocElemsCnt
Set oDoc = Nothing
Set sDoc = Nothing
MsgBox "資料匯入完成"
End Sub
DoEvents
With WebBrowser1
.Navigate "http://www.hkjc.com/chinese/racing/startersR1_c.asp"
End With
End Sub
Document 對象:代表給定瀏覽器窗口中的 HTML 標籤。
使用Document 對象可以對HTML標籤進行檢查、修改或添加內容,並處理該標籤內部的事件。在Web頁面上,Document 對象可通過window對象的Document屬性引用,或者直接引用。
all 集合:返回對像所包含的元素集合的引用。
使用Document 對象可以對HTML標籤進行檢查、修改或添加內容,並處理該標籤內部的事件。在Web頁面上,Document 對象可通過window對象的Document屬性引用,或者直接引用。
Microsoft Internet Explorer 文件物件模型
Microsoft® Internet Explorer 5 物件模型是由 MSHTML.TLB 提供,安裝 Microsoft® Office XP 時即包含在內。在此物件模型中的物件只要是已開啟 Internet Explorer,即可使用,因此您不需要參考特定型別的程式庫檔案。