3

我是vba的新手。我希望您对如何使用条件从下一个 td 元素中获取值提出意见。可以说,如果前一个 td 中的元素为真,那么我们将使用下一个 td 链接下载文件。

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

表 1. 库存 | 链接下载.xls | 链接下载.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

有可能得到?我得到了表格清单,但我坚持如何获得“链接下载.xls”。如果有任何建议,请让我知道伙计们..

4

1 回答 1

0

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

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

于 2015-08-08T02:20:07.637 回答