获取网页类内容的Excel VBA错误运行时错误438

Question

使用Excel VBA我试图从网页中获取特定类的内容。

这是代码：

sUrl = "https://www.example.com/"
Set oBrowser = CreateObject("InternetExplorer.Application") 
oBrowser.navigate sUrl
With oBrowser
Do While .Busy Or .ReadyState <> 4: Loop
End With
Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew")

此代码正在创建IE浏览器并导航到正确的页面。 但是，我收到错误：

在线：

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew")

编译代码不会产生任何错误。

Answer 1

您需要知道所需类元素的索引号，或者它是否是唯一具有该类名的元素：

Set HTMLDoc = oBrowser.document.getElementsByClassName("classNew")(0) 

您最后还需要.innerText，outerText，innerHTML或outerHTML才能将对象转换为字符串。