取得網頁上表格資料

现在的位置: 首页 > 综合 > 正文

取得網頁上表格資料

2013年09月13日 ⁄ 综合 ⁄ 共 1735字 ⁄ 字号小中大 ⁄ 评论关闭

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 標籤。