取得網頁上表格資料

 Private Sub CommandButton1_Click()
    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
 

Private Sub UserForm_Initialize()
    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，即可使用，因此您不需要參考特定型別的程式庫檔案。