vba - 使用 VBA 代码从 tr 获取所有 td

Question

我有一个 tr，它是一个对象并且有 td。我想在另一个对象变量 tblTD 中获取所有 td。为此，我使用了Set tblTD = tr.getelementsbytagname("td"). 但是当我检查 tblTD 的长度时，它显示为 0。有人可以建议如何做到这一点。请参考所附图片。谢谢！

Answer 1

如果您已经设置tr了该getElementsByTagName函数，那么您需要遍历每个 tr 对象以获取子 td 对象（或者您可以只引用一个对象）：

Dim td As MSHTML.IHTMLElementCollection
Dim tr As MSHTML.IHTMLElementCollection
Dim trObj as MSHTML.HTMLGenericElement
Dim tdObj as MSHTML.HTMLGenericElement

Set tr = HTMLDoc.getElementsByTagName("tr")
For Each trObj In tr
    Set td = trObj.getElementsByTagName("td")
    For Each tdObj in td
        'do something with each td object'
    Next
Next