使用Excel VBA按类名查询div元素

Question

我正在尝试将具有特定类名的div元素的数据传递给Excel,例如:

<div class="myClass">
   <span>Text1</span>
   <span>Text2</span>
</div>

我的VBA代码:

Sub GetData()
Dim oHtml       As HTMLDocument
Dim oElement    As Object

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "http://www.example.com/", False
    .send
    oHtml.body.innerHTML = .responseText
End With

For Each oElement In oHtml.getElementsByClassName("myClass")
    Debug.Print oElement.Children(0).src
Next oElement
End Sub

这将返回错误:运行时错误:'438':对象不支持此属性或方法.错误是在线Debug.Print ...

我已激活以下引用:Microsoft HTML对象库Microsoft Internet控件

我希望能够在第一个或第二个跨度上选择文本并将其粘贴到单元格上,我该怎么做？

Answer 1

这对我有用:

Dim oHtml As HTMLDocument
Dim oElement As Object

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "http://www.example.com", False
    .send
    oHtml.body.innerHTML = .responseText
End With

Set dados = oHtml.getElementsByClassName("myClass")(0).getElementsByTagName("span")

i = 0
For Each oElement In dados
    Sheets("Sheet1").Range("A" & i + 1) = dados(i).innerText
    i = i + 1
Next oElement