VBA中使用getElementsByTagName触发运行时错误91的问题咨询

运行时错误91（对象变量或With块变量未设置）在VBA操作HTML时太常见了，本质就是你尝试访问一个没初始化的对象，或者调用方法后返回的集合/对象是Nothing，却直接去操作它了。结合你给出的HTML结构，我帮你拆解问题和解决方案：

常见错误根源 #

• 页面还没完全加载就去获取元素，导致ie.Document或者目标元素集合为空
• 对象变量没通过Set关键字正确赋值（比如直接写doc = ie.Document而不是Set doc = ie.Document）
• 获取的元素集合为空，却直接访问其中的元素（比如getElementsByTagName("div")(0)，如果集合里没元素就会报错）

修复后的完整代码示例 #

假设你用IE浏览器来加载页面，下面是经过安全校验的代码，能避免错误91：

Sub FetchMatchResult()
    Dim ie As Object
    Dim doc As Object ' 晚期绑定，无需添加引用；如果用早期绑定，改为HTMLDocument
    Dim targetDivs As Object
    Dim i As Integer
    
    ' 1. 创建并初始化IE对象
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True ' 调试时设为True，上线可以改成False
    
    ' 2. 导航到目标页面（替换成你的实际URL）
    ie.Navigate "https://你的目标网页地址.com"
    
    ' 3. 等待页面完全加载！这一步非常关键
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents ' 让出CPU资源，避免程序假死
    Loop
    
    ' 4. 确认HTML文档对象已加载
    Set doc = ie.Document
    If doc Is Nothing Then
        MsgBox "页面文档加载失败，请检查URL或网络"
        GoTo Cleanup ' 直接跳转到资源清理步骤
    End If
    
    ' --- 方法1：用getElementsByClassName直接定位目标元素（更高效）---
    Set targetDivs = doc.getElementsByClassName("result-score")
    ' 先判断集合是否有效
    If Not targetDivs Is Nothing And targetDivs.Count > 0 Then
        Debug.Print "获取到的比赛信息："
        For i = 0 To targetDivs.Count - 1
            Debug.Print targetDivs(i).innerText ' 输出球队名和比分
        Next i
    Else
        MsgBox "未找到class为result-score的元素"
    End If
    
    ' --- 方法2：如果一定要用getElementsByTagName（兼容场景）---
    Dim allDivs As Object
    Set allDivs = doc.getElementsByTagName("div")
    If Not allDivs Is Nothing And allDivs.Count > 0 Then
        Debug.Print vbNewLine & "通过TagName筛选的结果："
        For i = 0 To allDivs.Count - 1
            ' 筛选class为result-score的div
            If allDivs(i).className = "result-score" Then
                Debug.Print allDivs(i).innerText
            End If
        Next i
    End If
    
Cleanup:
    ' 5. 清理资源，避免IE进程残留
    ie.Quit
    Set ie = Nothing
    Set doc = Nothing
    Set targetDivs = Nothing
    Set allDivs = Nothing
End Sub

关键注意点 #

1. 必须等待页面加载完成：用Do While ie.Busy Or ie.ReadyState <> 4循环，确保页面DOM完全渲染，否则doc对象或者目标元素会是Nothing
2. 对象赋值必须用Set：所有对象类型的变量（比如doc、targetDivs）都要用Set关键字赋值，不能直接赋值
3. 先判断对象是否有效：每次获取元素集合后，先检查Not ... Is Nothing并且Count > 0，再去访问里面的元素，避免空指针错误
4. 早期绑定vs晚期绑定：如果想获得代码提示，可以添加对Microsoft HTML Object Library的引用，然后把doc的类型改成HTMLDocument；晚期绑定（用CreateObject）不需要引用，兼容性更好

排查小技巧 #

如果还是报错，可以在代码里加断点，查看doc、targetDivs这些变量的值：

• 如果doc是Nothing，说明页面没加载成功，检查URL或者网络
• 如果targetDivs.Count = 0，说明页面里没有对应的元素，可能是页面动态加载（需要等待AJAX完成），或者元素的class/标签名写错了

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