VBA getelementsbytagname问题

Question

早上好,

我正在尝试提取HTML表格信息，并在en excel电子表格上整理结果。

我正在使用getelementsbytagname("table")(0)函数来提取HTML表信息，该方法运行良好。谁能告诉我在桌子后面的(0)的意义是什么？

此外，我有一个实例，其中打开的网页没有任何表信息要处理(我不知道这一点，直到页面打开)，这导致我的代码中的错误，因为我试图初始化我的数据数组的表的维度。有没有从getelementsbytagname("table")(0)中提取结果的方法，我已经尝试过了：

If (iDom.getelementsbytagname("table")(0) = 0) Then

但是这会返回一个运行时错误。非常感谢您的帮助。

Answer 1

首先添加对Microsoft Internet Controls (SHDocVw)和Microsoft HTML Object Library的引用：

​

​

那么Object Explorer就是你的朋友：

​

​

因此，getElementsByTagName返回具有length属性的IHTMLElementCollection。当在页面上找到一些具有特定标签名称的元素时，length大于零。HTH

Dim tables As IHTMLElementCollection
Set tables = doc.getElementsByTagName("table")
If tables.Length > 0 Then
    Dim table As HTMLTable
    Set table = tables.item(0)
    ' Because item is the default property of IHTMLElementCollection we can simplyfy
    Set table = tables(0) ' this is the same as tables.item(0)
End If