如何从HTML、vba中的同一tr中获取下一个td元素

如何从HTML、vba中的同一tr中获取下一个td元素,vba,Vba,我是vba新手。我想听听你对如何使用条件从下一个td元素中获取值的看法。比方说,如果前一个td中的元素为真,那么我们将使用下一个td链接下载该文件 在html中,这在一个tr和3个td上,如下所示: 表1。库存| Link download.xls | Link download.zip 这是我的代码: Dim tr As MSHTML.IHTMLElementCollection, Dim td As MSHTML.IHTMLElementCollection Dim tdobj As M

我是vba新手。我想听听你对如何使用条件从下一个td元素中获取值的看法。比方说,如果前一个td中的元素为真,那么我们将使用下一个td链接下载该文件

在html中,这在一个tr和3个td上,如下所示:

表1。库存| Link download.xls | Link download.zip


这是我的代码:

Dim tr As MSHTML.IHTMLElementCollection, Dim td As MSHTML.IHTMLElementCollection

Dim tdobj As MSHTML.HTMLGenericElement
Dim trobj As MSHTML.HTMLGenericElement  
Set tr = htmlDoc.getElementsByTagName("tr")
For Each trobj In tr
    Set td = trobj.getElementsByTagName("td")
    For Each tdobj In td
        If (Trim(tdobj.innerText) Like "TABLE 1. INVENTORIES*") Then
            "take link download .xls here"
        End If
    Next
Next

有可能得到什么?我得到了表格清单,但我一直在思考如何获得“linkdownload.xls”。如果有任何建议,请告诉我,伙计们。

正如桑托什在评论中所说:


使用nextSibling属性获取列表中的下一项


使用nextSibling属性获取列表中的下一项。