在网页上获取td项目

时间:2019-06-28 12:53:56

标签: excel vba

我正在处理Excel宏,并尝试将td元素中的项目获取到Excel。但是,HTML代码没有td id,这使我迷路。

HTML代码

<Tbody>

<Tr class = rptodd><td>1.</td> <td></td><td></td><td></td><td>Apple</td><td>200</td></tr>


<Tr class = rpteven><td>2.</td> <td></td><td></td><td></td><td>Orange</td><td>500</td></tr>

VBA代码

Set doc = ie.document
Set colTR = doc.getelementsbytagname("table")

For each tr in in colTR 
    ThisWorkbook.worksheets("Sheet1").range("A1").value = tr.innertext

我知道我的代码不正确或不相关。 有人可以指导我采取正确的方法吗?

我想在A1 sheet1中获得苹果值200 橙色值在A2中为500

1 个答案:

答案 0 :(得分:0)

如@JNevill所述,获取所有../www标签。然后,您可以循环播放它们,如果它们正在寻找tdinnerText,而您正在寻找Apple中的Orange。 / p>

下面我使用innerText使用后期绑定来完成此操作,但建议您尽早绑定。

我也使用了nextElementSibiling语句,但是您也可以使用标准的Variant语句。

Case