VBA类模块Class_Initialize中抛出错误返回440自动化错误问题咨询

问题原因 #

这是VBA运行时的固有特性，不属于代码逻辑错误：
Class_Initialize是VBA自动触发的隐式生命周期方法，当类实例化触发该方法时，运行时会对该阶段抛出的所有错误做一层封装，将原始错误强制替换为通用的440号「Automation error」，原始的错误号、来源、描述信息都会被覆盖。而类的普通自定义方法（比如你示例中的SetRef）没有该限制，错误可以正常向外层冒泡。
另外你代码里使用的Dim y As New CellRef属于隐式实例化写法，会进一步放大该问题：VBA不会在声明行完成类的实例化，而是在第一次访问y变量的成员时才触发Class_Initialize，也会导致错误捕获的上下文和预期不符。

可行解决方案 #

方案1：拆分实例化与显式初始化（最推荐） #

这是VBA类开发的通用最佳实践，完全规避初始化阶段错误被封装的问题：

1. 移除Class_Initialize中的所有业务逻辑，改为编写一个显式的初始化方法（比如命名为Init或SetRef），所有可能出错的初始化逻辑都放到该方法内
2. 放弃Dim xxx As New 类名的隐式实例化写法，改为显式拆分实例化和初始化步骤：

' 外层调用代码示例
Dim y As CellRef
Set y = New CellRef ' 仅完成基础实例化，不会触发业务逻辑
y.Init ' 显式调用初始化方法，错误可正常冒泡

方案2：类内置错误状态存储（如果必须使用Class_Initialize） #

如果业务逻辑要求必须在Class_Initialize中完成初始化，可以在类内部增加公共的错误状态属性，初始化出错时把错误信息存在属性中，外层调用后主动校验：

1. 在类模块中新增如下属性：

Public InitErrNum As Long
Public InitErrSource As String
Public InitErrDesc As String
Public Property Get InitSuccess() As Boolean
    InitSuccess = (InitErrNum = 0)
End Property

2. 修改Class_Initialize的错误处理逻辑，不要用Err.Raise向外抛错，改为给上述属性赋值：

ErrHandlr:
    InitErrNum = vbObjectError + 5050
    InitErrSource = "CellRef.Class_Initialize"
    InitErrDesc = "Error While Initializing Class"

3. 外层实例化后先校验初始化状态再执行后续逻辑：

Dim y As New CellRef
If Not y.InitSuccess Then
    ' 直接取y的错误属性处理即可
    Debug.Print "Error # " & y.InitErrNum & ", Source: " & y.InitErrSource & ", Desc: " & y.InitErrDesc
    Exit Sub
End If
' 后续正常逻辑

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