Excel VBA提取HTML中span标签后的数值001500求助

方法1：利用DOM节点的NextSibling属性 #

如果HTML结构规范，目标数值是class="resultItem"且内容为"TRACT CODE: "的<span>标签的下一个文本节点，可以直接通过NextSibling获取该文本：

Sub GetTractCodeViaDOM()
    Dim htmlDoc As Object
    Dim targetSpan As Object
    Dim tractCode As String
    
    ' 初始化HTML文档对象（替换为你实际获取HTML的方式，比如IE/XMLHTTP）
    Set htmlDoc = CreateObject("htmlfile")
    htmlDoc.body.innerHTML = "你的目标HTML代码" ' 替换成真实HTML内容
    
    ' 用querySelector定位目标SPAN
    Set targetSpan = htmlDoc.querySelector("span.resultItem")
    ' 校验SPAN内容避免同class其他标签干扰
    If Not targetSpan Is Nothing And Trim(targetSpan.innerText) = "TRACT CODE: " Then
        tractCode = Trim(targetSpan.NextSibling.NodeValue)
        ' 示例：输出到单元格
        ' Range("A1").Value = tractCode
        MsgBox "TRACT CODE: " & tractCode
    Else
        ' 遍历备选方案（兼容不支持复杂选择器的环境）
        Dim allSpans As Object, span As Object
        Set allSpans = htmlDoc.getElementsByTagName("span")
        For Each span In allSpans
            If span.className = "resultItem" And Trim(span.innerText) = "TRACT CODE: " Then
                tractCode = Trim(span.NextSibling.NodeValue)
                MsgBox "TRACT CODE: " & tractCode
                Exit For
            End If
        Next span
    End If
End Sub

方法2：正则表达式匹配 #

如果DOM解析遇到异常（比如HTML结构不规范），可以直接对HTML文本做正则匹配：

Sub GetTractCodeViaRegex()
    Dim htmlText As String
    Dim regex As Object
    Dim matchResult As Object
    
    htmlText = "你的目标HTML代码" ' 替换成真实HTML内容
    
    Set regex = CreateObject("VBScript.RegExp")
    ' 匹配目标SPAN后紧跟的6位数字
    regex.Pattern = "<span class=""resultItem"">TRACT CODE: </span>\s*([0-9]{6})"
    regex.IgnoreCase = True
    
    Set matchResult = regex.Execute(htmlText)
    If matchResult.Count > 0 Then
        MsgBox "TRACT CODE: " & matchResult(0).SubMatches(0)
        ' 示例：输出到单元格
        ' Range("A1").Value = matchResult(0).SubMatches(0)
    Else
        MsgBox "未找到目标数值"
    End If
End Sub

注意事项 #

• 若通过XMLHTTP获取HTML，需确保HTML内容加载完整后再解析；
• DOM方法优先于正则，因为正则容易受HTML格式变化影响（比如标签属性顺序、空格差异）。

内容的提问来源于stack exchange，提问作者Kirsten Kemper