VBA宏For循环单步执行正常，运行时触发错误'91'求助

嘿，我来帮你捋捋这个问题！你遇到的运行时错误'91'和宏时好时坏的情况，十有八九是网页加载速度跟不上代码执行节奏搞的鬼——单步执行时你手动给了网页足够的加载时间，所以能顺顺利利跑完，但直接运行时代码不等页面加载完就急着找元素，自然找不到对象，触发错误。下面给你几个针对性的解决办法，亲测有效：

别用固定时长的Sleep硬等，最好用浏览器的内置状态判断，比如针对IE控件的话，加这段代码在每次跳转页面或触发查询后：

' 循环等待，直到网页停止忙碌且加载完成
Do While IE.Busy Or IE.ReadyState <> 4
    DoEvents ' 让出CPU资源，让网页继续加载
Loop

要是你用的是其他浏览器控件（比如Selenium），就用显式等待——专门等你要操作的那个元素出现，比傻等固定时间靠谱多了。

网络偶尔抽风很正常，给关键操作加个重试逻辑，能大幅提升稳定性：

Dim retryTimes As Integer
retryTimes = 3 ' 设置最多重试3次

Do While retryTimes > 0
    On Error Resume Next ' 暂时忽略错误
    ' 这里替换成你获取查询结果的代码，比如查找页面元素
    Set resultElement = IE.Document.getElementById("your-result-element-id")
    
    If Err.Number = 0 Then
        Exit Do ' 成功找到对象，跳出重试循环
    End If
    
    Err.Clear ' 清空错误状态
    retryTimes = retryTimes - 1
    Application.Wait Now + TimeValue("00:00:02") ' 重试前等2秒
Loop

' 处理最终失败的情况
If retryTimes = 0 Then
    Cells(i, 2).Value = "查询失败（多次重试无效）"
End If
On Error GoTo 0 ' 恢复正常错误处理

有时候宏中断后，浏览器进程没关掉，下次运行容易冲突。可以在宏开头加这段代码，清理掉残留的IE窗口：

Dim shellObj As Object
Dim ieObj As Object
Set shellObj = CreateObject("Shell.Application")

' 遍历所有窗口，关闭IE
For Each ieObj In shellObj.Windows
    If InStr(ieObj.FullName, "iexplore.exe") > 0 Then
        ieObj.Quit
    End If
Next

Set ieObj = Nothing
Set shellObj = Nothing

' 重新创建干净的IE实例
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True ' 调试时开着方便看，发布后可以设为False

每次使用页面元素前，先确认对象不是Nothing，避免因为元素没加载完就调用导致错误：

Set resultElement = IE.Document.getElementById("result-id")
If Not resultElement Is Nothing Then
    Cells(i, 2).Value = resultElement.Value
Else
    Cells(i, 2).Value = "未找到返回结果"
End If

把这些方法组合起来用，基本就能解决宏不稳定的问题啦——核心就是别让代码“赶时间”，给网页足够的加载缓冲，同时给偶然的错误留个退路。

内容的提问来源于stack exchange，提问作者C.lei