在 VBA 中使用 getElementsByClassName

我正在使用此代码从页面获取产品名称 页面代码是

<div class="product-shop col-sm-7">
<div class="product-name">
<h1 >Claro Glass 1.5 L Rectangular Air Tight Food Container with Lid- Clear GMA0215A</h1>
</div>

我的VBA代码是

Public Sub GetValueFromBrowser()
Dim ie As Object
Dim name As String
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Value = "RUNNING"
URL = Selection.Value
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = 0
.navigate URL
While .Busy Or .readyState <> 4
DoEvents
Wend
End With
Dim Doc As HTMLDocument
Set Doc = ie.document
ActiveCell.Offset(0, 1).Value = "ERROR"
name = Trim(Doc.getElementByClassName("product-name").innerText)
ActiveCell.Offset(0, 1).Value = name
ie.Quit
Loop
End Sub

我得到的错误是

运行时错误“438”：

对象不支持此属性或方法

GetElementsByClassName 方法

您缺少一个s在方法名称 getElement 中s按类名。

• 改变这个name = Trim(Doc.getElementByClassName("product-name").innerText)
• To this name = Trim(Doc.getElementsByClassName("product-name")(0).innerText)。替换为(0)对于您要定位的项目。