我是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”。如果有任何建议,请让我知道伙计们..