使用VBA无法从含HTML元素的文本文件中提取指定标题

你遇到的“object variable or with block not set”错误，本质是代码尝试访问一个不存在的对象——也就是getElementsByClassName("question-hyperlink")(0)没有找到匹配的元素，直接调用它的innerText就触发了这个错误。

可能的原因 #

• 虽然你的文本里确实有目标元素，但HTMLDocument解析时可能因为文本格式（比如转义字符、不完整的HTML结构）导致元素识别失败
• 直接索引(0)过于激进，没有判断元素集合是否为空就访问

修正后的代码方案 #

我给你调整了代码，加入了元素存在性检查，同时优化了HTML解析的可靠性，还兼顾了你描述中提到的title属性提取需求（你预期输出是元素文本内容，代码里做了标注，可按需切换）：

Sub GetFileFromText()
    Dim strContent As String
    Dim HTML As New HTMLDocument
    Dim post As Object
    
    ' 读取文本文件内容
    With CreateObject("ADODB.Stream")
        .Charset = "utf-8"
        .Open
        .LoadFromFile "C:\Users\WCS\Desktop\content.txt"
        strContent = .ReadText()
        .Close
    End With
    
    ' 加载HTML内容到文档对象
    HTML.body.innerHTML = strContent
    
    ' 先检查目标元素是否存在，避免空对象错误
    If HTML.getElementsByClassName("question-hyperlink").Length > 0 Then
        Set post = HTML.getElementsByClassName("question-hyperlink")(0)
        ' 提取元素文本内容（与你的预期输出一致）
        MsgBox post.innerText
        ' 若需要提取title属性，可替换为以下代码
        ' MsgBox post.getAttribute("title")
    Else
        MsgBox "未找到目标元素"
    End If
End Sub

额外优化建议 #

• 如果你更习惯用CSS选择器，可以把获取元素的代码换成Set post = HTML.querySelector(".question-hyperlink")，然后通过If Not post Is Nothing来判断元素是否存在，写法更简洁
• 若不想依赖VBA引用库，可改用无引用的方式创建HTML文档对象，兼容性更好：

  ' 替换原有的Dim HTML As New HTMLDocument为：
  Dim HTML As Object
  Set HTML = CreateObject("HTMLFile")
  

这样修改后，就能避免找不到元素时的错误，同时稳定提取你需要的内容啦。

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