如何在vba web抓取中获得带span标记的值？

Sub GetSpanValue()
    Dim url As String
    Dim httpRequest As Object
    Dim htmlDoc As Object
    Dim spanElement As Object
    Dim spanValue As String
    
    ' 设置目标网页的URL
    url = "https://example.com"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    
    ' 发送GET请求到目标网页
    httpRequest.Open "GET", url, False
    httpRequest.send
    
    ' 获取网页的HTML内容
    Set htmlDoc = CreateObject("HTMLFile")
    htmlDoc.body.innerHTML = httpRequest.responseText
    
    ' 定位到包含目标值的<span>标签
    Set spanElement = htmlDoc.getElementsByTagName("span")(0)
    
    ' 提取<span>标签中的文本内容
    spanValue = spanElement.innerText
    
    ' 输出结果
    MsgBox "带<span>标记的值为：" & spanValue
End Sub