有没有办法用excel vba从html响应文本中获取特定数据？

Sub GetDataFromHTMLResponse()
    Dim objHTTP As Object
    Dim htmlDoc As Object
    
    ' 创建HTTP请求对象
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求并获取响应文本
    objHTTP.Open "GET", "http://example.com/data", False
    objHTTP.send
    
    ' 创建HTML文档对象
    Set htmlDoc = CreateObject("htmlfile")
    
    ' 将响应文本加载到HTML文档对象
    htmlDoc.body.innerHTML = objHTTP.responseText
    
    ' 根据HTML标签和属性获取特定数据
    Dim data As String
    data = htmlDoc.getElementById("dataElement").innerText
    
    ' 在Excel中输出获取的数据
    Range("A1").Value = data
    
    ' 释放对象
    Set htmlDoc = Nothing
    Set objHTTP = Nothing
End Sub