VBA报错后重置计算模式：如何保留原生错误信息执行清理？

可以通过On Error GoTo定向错误处理标签的方式，在报错后先执行清理逻辑，再重新抛出原生错误，完全满足你的需求——不需要行号，也不会丢失错误的调试细节。

核心思路 #

1. 提前记录需要恢复的状态（比如原计算模式）
2. 设置错误捕获，将报错定向到专门的错误处理块
3. 错误处理块中先执行清理操作（恢复原计算模式）
4. 用Err.Raise重新抛出错误，保留所有原生错误信息（包括带调试按钮的原生错误对话框）

优化后的示例代码 #

' 封装清理逻辑，避免代码重复
Sub RestoreCalculationMode(originalMode As XlCalculation)
    Application.Calculation = originalMode
End Sub

Sub Example()
    Dim origCalcMode As XlCalculation
    origCalcMode = Application.Calculation
    Application.Calculation = xlCalculationManual
    
    ' 设置错误捕获，报错时跳转到ErrorHandler标签
    On Error GoTo ErrorHandler
    
    ' 主业务代码，此处故意触发错误示例
    Dim val As Integer
    val = 1 / 0
    
    ' 正常执行完成后，恢复计算模式并退出
    RestoreCalculationMode origCalcMode
    Exit Sub
    
ErrorHandler:
    ' 报错时先执行清理
    RestoreCalculationMode origCalcMode
    ' 重新抛出原生错误，保留所有细节（包括调试按钮）
    Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext
End Sub

为什么这个方法有效 #

• 清理逻辑优先执行：无论代码是否报错，都会保证恢复计算模式——正常执行时通过末尾的清理代码，报错时通过错误处理块的清理操作。
• 保留原生错误细节：Err.Raise会完整传递原错误的所有属性（错误号、描述、调用栈等），系统会弹出原生的运行时错误对话框，点击「调试」按钮可以直接定位到触发错误的代码行，完全不影响问题排查。
• 无需行号，代码整洁：整个结构依赖标签而非行号，代码逻辑清晰，维护成本低。

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