嘿，我之前也碰到过一模一样的坑！手动按F8分步执行正常，一跑宏就炸Error 91，本质原因几乎都是代码执行速度快过网页加载速度——手动分步时你给了页面足够的缓冲时间，但宏跑起来根本不等元素加载完成就去引用，自然找不到对象触发报错。下面给你几个针对性的解决方案：

1. 强制等待IE页面完全加载 #

别只依赖objIE.Busy，要结合ReadyState做循环等待，确保页面真的加载完成：

' 导航到目标页面后，加入这段等待逻辑
objIE.Navigate "你的债券搜索网址?cusip=" & x
Do While objIE.Busy Or objIE.ReadyState <> 4
    DoEvents ' 释放系统资源，避免程序假死
Loop

如果页面有动态加载的内容（比如AJAX渲染的债券信息），还可以加一段短暂的延时兜底：

Application.Wait Now + TimeValue("00:00:02") ' 等待2秒，根据实际加载速度调整

2. 给对象引用加错误检查 #

你代码里抓取datelabel的部分，一定要确认元素存在后再操作，避免因为元素未加载导致对象未设置：

Dim dateElement As Object
' 替换成你实际用的元素选择器（比如GetElementById/querySelector）
On Error Resume Next
Set dateElement = objIE.Document.GetElementById("issue-date-label")
On Error GoTo 0

' 检查对象是否成功获取
If dateElement Is Nothing Then
    MsgBox "找不到发行日期元素，请检查页面选择器是否正确！"
    ' 这里可以加后续处理逻辑，比如跳过当前CUSIP
    GoTo NextCUSIP
End If

' 正常获取日期
datelabel = dateElement.innerText

3. 确认IE对象正确初始化 #

虽然你分步执行正常，但还是要检查下是否正确实例化了IE对象：

' 不要只声明，一定要Set实例化
Dim objIE As InternetExplorer
Set objIE = New InternetExplorer
objIE.Visible = True ' 调试时设为True方便观察页面，上线可以改成False

完整示例片段 #

把这些逻辑整合后，你的代码大概会是这样：

Sub GetBondIssueDate()
    Dim objIE As InternetExplorer
    Dim dateElement As Object
    Dim x As String ' CUSIP编号
    Dim y As Integer ' 循环计数器
    
    ' 初始化IE对象
    Set objIE = New InternetExplorer
    objIE.Visible = True
    
    ' 假设CUSIP从A列第2行开始循环
    For y = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        x = Cells(y, "A").Value
        If x = "" Then GoTo NextCUSIP
        
        ' 导航到搜索页面
        objIE.Navigate "你的债券搜索网址?cusip=" & x
        
        ' 等待页面加载完成
        Do While objIE.Busy Or objIE.ReadyState <> 4
            DoEvents
        Loop
        ' 等待动态内容加载
        Application.Wait Now + TimeValue("00:00:01")
        
        ' 尝试获取日期元素
        On Error Resume Next
        Set dateElement = objIE.Document.GetElementById("issue-date")
        On Error GoTo 0
        
        ' 写入结果到B列
        If Not dateElement Is Nothing Then
            Cells(y, "B").Value = dateElement.innerText
        Else
            Cells(y, "B").Value = "未找到发行日期"
        End If
        
NextCUSIP:
    Next y
    
    ' 清理资源
    objIE.Quit
    Set objIE = Nothing
    Set dateElement = Nothing
End Sub

核心思路就是让代码和页面加载同步，分步执行时的人工等待，换成代码里的主动等待和对象校验，就能解决大部分Error 91的问题啦。

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