VBA运行时如何查询当前错误处理状态 临时切换后恢复原设置

核心结论 #

VBA 原生没有提供任何内置API可以在运行时直接读取当前生效的错误处理模式，不存在能直接返回当前是On Error Resume Next、On Error GoTo [标签]还是On Error GoTo 0状态的系统变量或函数。

通用实现方案 #

你自己想到的「用变量提前记录错误处理状态、需要恢复时按记录值重设错误处理规则」不是折中方案，是VBA开发领域通用的标准实现，没有比这更省开销的原生方案。
为了减少代码冗余，你可以在模块顶部定义枚举替代字符串判断，代码可读性和执行效率都会更高：

' 模块顶部声明错误处理模式枚举
Private Enum ErrorHandlingMode
    ehModeDefault = 0   ' 对应On Error GoTo 0：抛出默认系统错误
    ehModeResumeNext = 1' 对应On Error Resume Next：忽略错误继续执行
    ehModeCustomHandler = 2 ' 对应On Error GoTo 自定义标签：跳转到指定错误处理逻辑
End Enum

实际使用示例：

Sub BusinessLogic()
    Dim currentEH As ErrorHandlingMode
    ' 初始设置错误处理时，同步给状态变量赋值
    currentEH = ehModeCustomHandler
    On Error GoTo GlobalErrorHandler

    ' --- 常规业务代码 ---

    ' 临时切换错误处理规则前不需要额外读取状态，因为状态已经存在变量里
    On Error Resume Next
    ' 执行需要临时忽略错误的逻辑
    ' ...

    ' 执行完成后直接按之前记录的状态恢复即可
    Select Case currentEH
        Case ehModeDefault: On Error GoTo 0
        Case ehModeResumeNext: On Error Resume Next
        Case ehModeCustomHandler: On Error GoTo GlobalErrorHandler
    End Select

    ' --- 恢复后继续执行常规业务代码 ---

    Exit Sub
GlobalErrorHandler:
    ' 全局错误处理逻辑
    MsgBox "运行出错：" & Err.Description
End Sub

针对你原场景的更优解法 #

你提到需要对Variant数组做Is Nothing判断、怕值类型触发报错的场景，完全不需要临时修改错误处理规则，用VarType函数先判断变量类型即可，从根源上避免异常抛出：

' 安全判断Variant变量是否为对象类型的空值，无异常抛出
Function IsVariantNothing(val As Variant) As Boolean
    ' vbObject是VBA内置常量，值为9，代表变量存储的是对象引用
    If VarType(val) = vbObject Then
        IsVariantNothing = (val Is Nothing)
    Else
        ' 值类型、数组等非对象类型直接返回False
        IsVariantNothing = False
    End If
End Function

这个实现不需要修改任何错误处理设置，性能远高于靠On Error Resume Next吞异常的方案，也完全不存在错误处理状态恢复的问题。

注意事项 #

• 不要尝试通过故意触发测试错误、读取Err对象属性的方式反推当前错误处理模式，这种方式逻辑不可靠，还会污染Err对象的原始状态，干扰正常错误处理流程。
• 如果项目中大量存在临时切换错误处理的需求，可以把状态记录、恢复逻辑封装到类模块中，借助类的初始化和终止事件自动完成状态存取，进一步减少重复代码。

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