我想问一下已获取到网页的Table对象，问题是如何获取每个Table对象里面的对象

Question

RT，比如：Table->Tbody->TR->TD->A

Answer 1

以下代码调试通过：Private Sub Command1_Click()
    Dim webDoc As HTMLDocument, webTag As Object, lengthTag As Integer, countTag As Integer
    Dim objTable As HTMLTable, o As Object, lengthTable As Integer, countTable As Integer
    WebBrowser1.Navigate "about:blank"
    WebBrowser1.Document.write "<table id=test width=100% border=1><tr><td align=center><a href=#>TD里面的内容</a></td></tr></table>"
    Set webDoc = WebBrowser1.Document
    lengthTag = webDoc.All.length - 1
    For countTag = 0 To lengthTag
        Set webTag = webDoc.All.Item(countTag)
        If LCase(webTag.tagname) = "table" And webTag.Id = "test" Then
            Set objTable = webTag
            lengthTable = objTable.All.length - 1
            For countTable = 0 To lengthTable
                Set o = objTable.All.Item(countTable) 'o就是<Table>里面的各个元素
                Debug.Print o.tagname
            Next
            Exit Sub
        End If
    Next
End Sub

Answer 2

上面的代码我试了，可以，但是一个网页里面有几个 Table 我想获取每个TABLE里面的对象，该怎么改一下呢？

Answer 3

稍改一下就OK了啊：Private Sub Command1_Click()
    Dim webDoc As HTMLDocument, webTag As Object, lengthTag As Integer, countTag As Integer
    Dim objTable As HTMLTable, o As Object, lengthTable As Integer, countTable As Integer
    Set webDoc = WebBrowser1.Document
    lengthTag = webDoc.All.length - 1
    For countTag = 0 To lengthTag
        Set webTag = webDoc.All.Item(countTag)
        If LCase(webTag.tagname) = "table" Then
            Set objTable = webTag 'objTable就是网页中的每个<table>
            lengthTable = objTable.All.length - 1
            For countTable = 0 To lengthTable
                Set o = objTable.All.Item(countTable) 'o就是<Table>里面的各个元素
                Debug.Print o.tagname
            Next
        End If
    Next
End Sub