Question

我正在尝试遍历页面上的所有表格元素，但我收到了上述错误。这是我的代码：

Dim ie As InternetExplorer
Dim ieDOC As HTMLDocument
Dim tableElements As HTMLElementCollection
Dim tableElement As HTMLTable

Set ie = New InternetExplorer
ie.Visible = True
eURL = "url_of_site_to_visit"
ie.navigate ieURL
Do While ie.Busy Or ie.readyState <> 4
    DoEvents
Loop
Set ieDOC = ie.Document
Set tableElements = ieDoc.getElementsByTagName("table")

出于某种原因，我在Set tableElements = ieDoc.getElementsByTagName("table")代码行中收到“类型不匹配”。

此外，在调试时，它会告诉我tableElements = Nothing

我添加了对“Microsoft HTML Object Library”和“Microsoft Internet Controls”的引用。

任何关于导致错误或如何修复错误的方向都将受到赞赏。

Answer 1

认为它应该是IHTMLElementCollection（请注意开头的I），因为这是getElementsByTagName返回的对象类型

VBA运行时错误13：类型不匹配 - HTMLElementCollection

1 个答案: