VBA类模块仅在未处理错误时中断的最优设计模式问询

示例代码 #

类模块（Class1） #

Class Class1
  Sub error1(): Err.Raise 1, "", "Error1": End Sub
  Sub error2(): Err.Raise 1, "", "Error2": End Sub
End Class

标准模块 #

Sub ErrorInClass()
  Dim c As New Class1
  
  '触发已处理异常
  On Error Resume Next
    Call c.error1
  On Error GoTo 0
  
  '触发未处理异常
  Call c.error2
End Sub

测试观察结果 #

• 启用「在类模块中中断」模式：会在类内部触发中断，Error1和Error2都会中断，哪怕Error1已经被调用层处理。
• 启用「仅在未处理错误时中断」模式：会在顶层标准模块处中断，仅Error2触发中断，但多层类嵌套时，顶层定位问题效率极低。

核心问题 #

多层类嵌套且包含复杂计算时，顶层中断无法高效定位问题；而选择「在类模块中中断」模式又会干扰已被处理的错误流程，如何平衡调试便利性和错误处理的正常执行？

最优设计模式：类内部错误封装与分层处理 #

1. 类模块内部封装错误逻辑 #

在类模块中，对预期内的错误自行处理，仅将未预期的、需要调用层干预的错误，封装额外上下文信息后向上抛出。这样既保留类的内聚性，又能让调试时精准定位到问题点。

修改后的类模块示例：

Class Class1
  Sub error1()
    On Error GoTo ErrorHandler
    ' 原业务逻辑
    Err.Raise 1, "", "Error1"
    
    Exit Sub
ErrorHandler:
    ' 处理预期内错误，比如记录日志、清理资源
    Debug.Print "Class1.error1 处理错误: " & Err.Description
    ' 若不需要调用层知晓，直接退出；若需要，可重新抛出带上下文的错误
    ' Err.Raise vbObjectError + 1001, Me.Name, "Class1.error1 执行失败: " & Err.Description
  End Sub

  Sub error2()
    On Error GoTo ErrorHandler
    ' 原业务逻辑
    Err.Raise 1, "", "Error2"
    
    Exit Sub
ErrorHandler:
    ' 未预期错误，封装上下文后抛出
    Err.Raise vbObjectError + 1002, Me.Name, "Class1.error2 执行异常: " & Err.Description
  End Sub
End Class

2. 调用层分层处理错误 #

标准模块中，针对类抛出的带上下文的错误精准处理，同时配合调试设置：

Sub ErrorInClass()
  Dim c As New Class1
  
  ' 处理类中已封装的预期错误
  On Error Resume Next
    Call c.error1
    If Err.Number <> 0 Then
      Debug.Print "调用层捕获错误: " & Err.Description
      Err.Clear
    End If
  On Error GoTo 0
  
  ' 处理类抛出的未预期错误
  On Error GoTo TopLevelErrorHandler
    Call c.error2
  
  Exit Sub
TopLevelErrorHandler:
  Debug.Print "顶层处理错误: " & Err.Source & " - " & Err.Description
  ' 根据错误类型决定是否中断调试
  If Err.Number = vbObjectError + 1002 Then
    Stop ' 仅在需要调试的错误处触发中断
  End If
End Sub

3. 调试设置配合 #

• 日常开发保持「仅在未处理错误时中断」模式，类内部已处理的错误不会触发中断，只有未处理的、封装后抛出的错误会在类的错误抛出点中断，精准定位问题。
• 若需要排查类内部已处理的错误，临时在类的错误处理块中添加Stop语句，而非全局修改调试模式。

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