VBA中无需IE对象，如何晚绑定实现getElementsByTagName解析HTML？

不需要依赖IE对象，直接用晚绑定的HTML文档对象就能处理现成的HTML代码，步骤如下：

• 用CreateObject("HTMLFile")创建HTML文档实例，无需提前引用任何库（这就是晚绑定的优势）
• 将你的HTML代码赋值给文档对象的body.innerHTML属性，完成加载
• 调用getElementsByTagName获取目标元素，再提取文本

完整示例代码：

Sub GetTdContent()
    Dim htmlDoc As Object
    Dim tdCollection As Object
    Dim htmlCode As String
    Dim resultText As String
    
    ' 待处理的HTML代码
    htmlCode = "<td>blabla</td>"
    
    ' 创建晚绑定的HTML文档对象
    Set htmlDoc = CreateObject("HTMLFile")
    ' 加载HTML代码到文档中
    htmlDoc.body.innerHTML = htmlCode
    
    ' 获取所有<td>元素
    Set tdCollection = htmlDoc.getElementsByTagName("td")
    
    ' 提取第一个<td>的文本内容
    If tdCollection.Length > 0 Then
        resultText = tdCollection(0).innerText
        ' 这里可以根据需求处理文本，比如输出到单元格或弹窗
        MsgBox resultText
    Else
        MsgBox "未找到<td>元素"
    End If
    
    ' 释放对象内存
    Set tdCollection = Nothing
    Set htmlDoc = Nothing
End Sub

关键说明 #

• HTMLFile是Windows系统内置的HTML解析对象，能完美处理HTML标签解析
• 晚绑定无需在VBA编辑器的「工具-引用」里勾选任何库，避免版本兼容问题
• 如果有多个元素，可通过遍历tdCollection集合获取每个元素的文本

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