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

使用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") 

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

在线：

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

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

Answer 1

你需要知道你想要的类元素的索引号，或者它是唯一具有这个类名的元素：

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

您还需要.innerText ， outerText ， innerHTML或outerHTML ，才能将对象转换为string。