2013-10-07 45 views
2

我是vba中的新成员。我希望你的观点能够通过使用条件来获得下一个td元素的价值。可以说,如果前一个td的元素是真的,那么我们将采取下一个td链接来下载文件。如何从HTML中的相同tr获取下一个td元素,vba

在HTML

,这是一个tr和3 TD是这样的:

表1.存货|链接download.xls |链接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 

就可以得到什么?我得到表格库存,但我坚持如何获得“链接download.xls”。如果有任何建议,请让我知道家伙..

+0

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

+1

谢谢santosh ... :) – user2851376

+0

不客气:) – Santosh

回答

0

由于桑托斯在评论中说:

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