VBA 错误处理：On Error、Err 对象、清理与恢复设置

适用场景

宏运行到一半报错，ScreenUpdating 还关着、打开的工作簿没关、事件被禁用，下一次运行就各种异常。错误处理不只是弹一个提示框，更重要的是无论成功还是失败，都把 Excel 的状态恢复原样。

基本语句

On Error GoTo Handler     ' 出错时跳到 Handler
On Error Resume Next      ' 忽略错误，继续下一句
On Error GoTo 0           ' 关闭当前过程的错误处理

On Error Resume Next 只适合确实可以忽略错误的短小片段，例如关闭一个可能已经关闭的工作簿。不要用它包住整个宏，否则真正的错误会被静默吞掉。

Err 对象

出错后可以用 Err 读取信息：

Debug.Print Err.Number
Debug.Print Err.Description
Debug.Print Err.Source
Err.Clear

判断错误类型要看 Err.Number，不要匹配 Description 文本；描述会随语言和版本变化。

常见错误号：

标准结构

Sub DoWork()
    On Error GoTo CleanFail

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' 业务代码
    ThisWorkbook.Worksheets("数据").Range("A1").Value = 100

CleanExit:
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    Exit Sub

CleanFail:
    MsgBox "错误 " & Err.Number & "：" & Err.Description, vbExclamation
    Resume CleanExit
End Sub

关键点：

• CleanExit 放在正常流程末尾，正常执行完直接 Exit Sub，不会掉进错误块；
• 错误块最后用 Resume CleanExit 跳到清理代码，而不是继续往下执行；
• 清理代码要恢复所有被修改的全局状态；
• 需要把错误继续抛给上层时用 Err.Raise。

恢复设置

宏经常临时修改这些状态：

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

对应恢复：

Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

如果用户原本就是手动计算，直接恢复成自动会改变用户设置。更稳的做法是先保存原值：

Dim oldCalc As XlCalculation
oldCalc = Application.Calculation
Application.Calculation = xlCalculationManual
' ...
Application.Calculation = oldCalc

重新抛出错误

底层函数捕获错误、清理资源后，可以把错误继续抛给调用方：

Err.Raise Err.Number, Err.Source, Err.Description

不要用 Err.Raise 1004, ... 伪造一个通用错误号；保留原始错误号更利于排查。

易错点

• 错误块掉进去：正常流程执行完没有 Exit Sub，会继续执行 CleanFail 里的提示框；清理块前一定要 Exit Sub。
• Resume 死循环：Resume 会重试出错的那一句；如果错误条件没修复，会反复报错。修复后用 Resume Next 或 Resume 标签。
• On Error Resume Next 范围太大：后面的错误都被忽略，包括真正需要处理的问题；只包住确实可忽略的语句，之后立刻 On Error GoTo 0。
• 清理代码本身出错：清理块里也可能出错，尽量只做简单赋值和 Close，并单独处理。
• 没有恢复 EnableEvents：事件被禁用后，工作簿的自动逻辑全部失效；清理块必须恢复。
• 用 End 结束宏：End 会重置模块级变量和状态，可能留下未关闭的文件；用 Exit Sub。
• Err 被清除：Resume、Exit Sub 等会清除错误信息；需要记录时先把 Err.Number 存到变量。
• 错误号依赖语言：不要用 Err.Description = "文件未找到" 判断；用 Err.Number。

相关条目

• vba-basics — VBA 语法与调试
• vba-workbook — 打开/关闭文件时的清理
• vba-loops — 循环中的错误与恢复
• excel-macro-recording — 录制宏入门
• vba-range-cells — 区域操作常见错误

参考链接

• Microsoft Learn: Excel VBA 对象模型

读完自测

合上页面，先回答，再展开对照。

1. On Error Resume Next 为什么不能包住整个宏？
2. 正常流程执行完为什么要在清理块前 Exit Sub？
3. Resume 和 Resume Next 有什么区别？