Excel进度条卡住并触发Error 91错误，代码此前运行正常

阿华AIGC实验室

2026-5-20

搞定VBA Error 91（对象变量未设置）和进度条卡住问题

嘿，我来帮你分析下这个困扰你的问题！Error 91本质就是你在尝试访问一个还没初始化好的对象——简单说就是某个对象是Nothing的时候，你就去调用它的属性或方法了。结合你说的进度条卡住后触发错误，大概率是和InternetExplorer对象的加载、初始化环节出了问题，咱们一步步来解决：

核心问题排查

先看你贴的代码片段，有几个明显的潜在坑：

你声明了html As HTMLDocument，但没看到给它赋值的代码（比如Set html = appIE.Document），如果后续要操作页面元素，这一步绝对不能少，不然html就是空的，一用就报错。
item_data As Object如果没通过Set关键字正确赋值（比如查找元素没找到返回Nothing），直接操作它也会触发Error 91。
进度条卡住大概率是IE页面加载超时，导致后续对象没法初始化，代码一直卡在等待加载的循环里，最后触发错误。

具体修复步骤

给html对象正确赋值
在IE导航到目标页面后，必须等页面加载完成，再把appIE.Document赋值给html，还要加个超时避免无限等待：

appIE.Navigate "你的目标页面URL"
MyTimer = Timer
' 等待页面加载，同时加10秒超时
Do While appIE.Busy Or appIE.ReadyState <> 4
    DoEvents
    If Timer - MyTimer > 10 Then
        MsgBox "页面加载超时啦，终止当前操作"
        appIE.Quit
        Set appIE = Nothing
        Exit Sub
    End If
Loop
' 这一步是关键，把IE的文档对象赋值给html
Set html = appIE.Document

安全处理item_data对象
查找页面元素后，一定要先判断对象是否存在，再去操作：

' 示例：按ID查找元素，你可以换成自己的选择器
Set item_data = html.getElementById("target-element-id")
' 先检查是不是Nothing
If Not item_data Is Nothing Then
    ' 这里写你的数据处理逻辑，比如取文本、属性
    Debug.Print item_data.innerText
Else
    MsgBox "没找到目标元素哦"
    ' 可以在这里做异常处理，避免进度条卡住
    GoTo Cleanup
End If

显式声明循环变量k
你代码里用了k但没声明，虽然不会直接导致Error 91，但容易引发逻辑错误，加上Dim k As Integer更规范。
别忘了清理对象
不管过程正常结束还是出错，都要把IE对象关掉并释放，不然会残留IE进程：

Cleanup:
If Not appIE Is Nothing Then
appIE.Quit
Set appIE = Nothing
End If
Set html = Nothing
Set item_data = Nothing
Application.StatusBar = False ' 重置状态栏

### 完整的调试版代码片段
给你整理了一个带调试和异常处理的版本，你可以参考着改：
```vba
Sub PROGRESS()
  Dim x As Integer
  Dim MyTimer As Double
  Dim appIE As New InternetExplorer
  Dim html As HTMLDocument
  Dim item_data As Object
  Dim k As Integer ' 显式声明循环变量
  
  ' 让IE可见，方便调试的时候看页面情况
  appIE.Visible = True
  
  For k = 6 To 15 Step 1
      Application.StatusBar = "Progress: 正在处理第" & k & "/15项..."
      
      ' 导航到目标页面
      appIE.Navigate "你的目标URL"
      
      ' 带超时的加载等待
      MyTimer = Timer
      Do While appIE.Busy Or appIE.ReadyState <> 4
          DoEvents
          If Timer - MyTimer > 10 Then
              MsgBox "第" & k & "项加载超时，终止操作"
              GoTo Cleanup
          End If
      Loop
      
      ' 初始化html对象
      Set html = appIE.Document
      
      ' 查找目标元素并判断是否存在
      Set item_data = html.getElementById("your-element-id") ' 换成你的元素选择器
      If Not item_data Is Nothing Then
          ' 这里写你的数据处理逻辑
          Debug.Print item_data.innerText
      Else
          MsgBox "第" & k & "项未找到目标元素"
      End If
  Next k
  
Cleanup:
  ' 清理所有对象
  If Not appIE Is Nothing Then
      appIE.Quit
      Set appIE = Nothing
  End If
  Set html = Nothing
  Set item_data = Nothing
  Application.StatusBar = False ' 重置状态栏
End Sub