VBA报错Error 91：对象变量或With块变量未设置求助

以下是针对你的场景的具体排查方向，直接对应Error 91的核心成因——对象引用未初始化或引用无效：

• 检查所有对象变量的初始化语句
  遍历代码中使用的Worksheet、Range、Workbook等对象，确认每个对象都通过Set完成了有效赋值。比如工作表初始化时，避免直接使用Worksheets("目标表")，而是先通过Set绑定：

  Dim targetWs As Worksheet
  ' 明确绑定工作表，避免因表名拼写错误、表被删除导致对象为空
  Set targetWs = ThisWorkbook.Worksheets("烤箱数据")
  

  如果跳过Set直接使用对象，或赋值语句执行失败（比如表不存在），后续调用该对象就会触发Error 91。

• 排查用户表单控件的引用有效性
  检查交互表单中所有控件的引用是否正确：

  • 确认控件名称与代码中的引用一致（比如表单里的文本框名为txtOvenSerial，代码里不能写成txtOvenNum）
  • 表单加载时，确保控件已完成初始化，避免在控件未创建时就读取其Value属性

• 验证数据导入子过程中的外部对象
  导入数据时涉及的外部文件、记录集等对象，必须在使用前验证是否存在：

  Dim sourceWb As Workbook
  Dim sourcePath As String
  sourcePath = "C:\烤箱数据\原始数据.xlsx"
  
  ' 先检查文件是否存在，再尝试打开
  If Dir(sourcePath) = "" Then
      MsgBox "原始数据文件不存在"
      Exit Sub
  End If
  
  Set sourceWb = Workbooks.Open(sourcePath)
  ' 打开后再次验证对象是否有效
  If sourceWb Is Nothing Then
      MsgBox "文件打开失败"
      Exit Sub
  End If
  

  若外部文件路径错误、文件损坏，会导致sourceWb为Nothing，后续操作该对象就会触发错误。

• 检查With块的绑定对象
  所有With块的前置对象必须有效，不能为Nothing：

  ' 错误示例：ws未赋值就进入With块
  With ws
      .Range("A1").Value = "设备编号"
  End With
  
  ' 正确示例：先完成对象绑定
  Set ws = ThisWorkbook.Worksheets("导入目标")
  With ws
      .Range("A1").Value = "设备编号"
  End With
  

• 添加错误捕获定位具体出错行
  在主过程中添加错误捕获，精准定位触发Error 91的代码行：

  Sub 执行数据导入()
      On Error GoTo ErrHandler
      
      ' 你的代码逻辑：表单读取、工作表初始化、数据填充
      
      Exit Sub
  ErrHandler:
      MsgBox "错误位置：第" & Erl & "行" & vbCrLf & "错误信息：" & Err.Description
  End Sub
  

  借助Erl可以直接获取出错的行号，快速锁定问题对象。

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