VBA运行时错误'91'：多Sub突发失效求助（附相关代码）

一、运行时错误'91'的直接修复 #

你提供的代码里，With tblDataBody块执行时，tblDataBody对象未提前完成赋值（Set操作），这是错误'91'的核心诱因。即便此前代码正常运行，大概率是以下情况导致当前失效：

• 原代码中初始化tblDataBody的逻辑（比如Set tblDataBody = wksImport.ListObjects("指定表名")）被意外删除、注释，或因前置条件不满足未执行
• 目标工作表中的表格被删除、重命名，导致对象引用失败

修复代码示例：

' Objective: Read txt files and extract information 

For Each wksImport In wkbImbarq.Worksheets
        If StrComp(Left(wksImport.Name, 1), "R", vbBinaryCompare) = 0 Then
            ' 新增：明确初始化tblDataBody对象，替换为你实际的表格引用逻辑
            ' 示例1：引用工作表中第一个表格
            Set tblDataBody = wksImport.ListObjects(1)
            ' 示例2：按表名引用（推荐，更稳定）
            ' Set tblDataBody = wksImport.ListObjects("你的表格名称")
            
            With tblDataBody
                .gsInitializeWithValues wkbImbarq.Name, wksImport.Name, wksImport.Name & ".tbl"
                .gsDeleteTableContent
                .gsDeleteTableHeaderContent
            End With
            Set tblDataBody = Nothing
        End If
Next wksImport

额外检查：确认wkbImbarq对象已提前正确赋值（比如Set wkbImbarq = Workbooks.Open("文件路径")或ThisWorkbook），若该对象未初始化，也会引发连锁的错误'91'。

二、其他两个Sub失效的排查方向 #

针对读取.txt文件、排序写入表格的Sub，按以下维度逐一排查：

• 文件层面问题：
  • 目标.txt文件被移动、重命名，或文件路径包含空格/特殊字符（未用引号包裹路径）
  • 系统权限变更：文件夹设为只读、杀毒软件拦截，导致VBA无法读取/写入文件
• 工作表引用问题：
  • 目标表格被删除、列名修改，导致写入时找不到对应位置
  • 排序依赖的数据范围失效（比如原数据区域为空、存在合并单元格打乱排序逻辑）
• VBA环境问题：
  • Office更新后宏信任设置被重置，部分功能被禁用
  • 宏的数字签名过期，未被信任的宏无法执行
• 文件编码问题：
  • .txt文件编码从ANSI变为UTF-8（带BOM），导致读取时出现乱码或内容为空，后续排序/写入逻辑无数据可处理

通用调试技巧 #

• 逐行调试：按F8逐行执行代码，定位触发错误的具体行，明确是哪个对象/变量未赋值
• 错误捕获：在Sub开头添加以下代码，打印具体错误信息辅助排查

  On Error Resume Next
  ' 原有代码
  Debug.Print Err.Number, Err.Description
  On Error GoTo 0
  

• 结构校验：确认所有依赖的工作表、表格、命名范围都存在且未被修改

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