使用Excel VBA提取HTML文本时遭遇Runtime error 91求助

嘿，我来帮你搞定这个Runtime Error 91的麻烦——这个错误说白了就是你在尝试访问一个没被正确初始化的对象，咱们拆解下你的代码里的问题：

问题根源分析 #

你的代码里有几个关键的小坑：

1. 过早释放IE对象：你在获取页面元素之前就把Set ie = Nothing了，虽然html已经指向了ie.document，但部分动态页面的元素渲染可能还依赖IE的上下文，提前释放会直接导致元素查找失败。
2. 页面加载判断不严谨：READYSTATE_COMPLETE仅表示文档框架加载完成，但页面里的动态元素（比如你要找的这个textarea）可能还没完全渲染出来，直接去获取自然找不到对象。
3. 变量声明不规范：Dim title, header As String里title其实是Variant类型，不是String，虽然不直接触发错误，但明确声明类型能避免很多潜在问题。

修正后的代码 #

Sub ExtractTaskDescription()
    Dim ie As InternetExplorer
    Dim html As HTMLDocument
    Dim title As String, header As String ' 明确声明变量类型
    Dim targetElement As Object
    Dim URLstr As String
    
    URLstr = "你的目标页面URL" ' 替换成你实际要访问的URL
    
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.navigate URLstr
    
    ' 等待页面完全加载（同时判断IE是否繁忙）
    Do While ie.Busy Or ie.READYSTATE <> READYSTATE_COMPLETE
        Application.StatusBar = "Trying to connect to the source..."
        DoEvents
    Loop
    
    Set html = ie.document
    
    ' 额外等待目标元素加载（应对动态渲染延迟）
    Do
        Set targetElement = html.getElementById("task-description")
        DoEvents
    Loop Until Not targetElement Is Nothing
    
    ' 提取textarea的文本，用Value比innerHTML更准确
    title = targetElement.Value
    
    ' 写入Excel单元格
    ActiveSheet.Range("B2").Value = title
    
    ' 最后再释放所有对象
    ie.Quit
    Set ie = Nothing
    Set html = Nothing
    Set targetElement = Nothing
    
    Application.StatusBar = ""
End Sub

额外注意事项 #

• 记得添加必要的引用：打开VBA编辑器 → 点击「工具」→「引用」→ 勾选Microsoft Internet Controls和Microsoft HTML Object Library。
• 用targetElement.Value代替innerHTML：对于textarea元素，Value属性直接对应它的输入文本，比innerHTML更贴合需求。

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