如何在VBA的AAA类Sub中调用BBB类Sub并避免NullReferenceException

问题分析 #

你的基础代码中直接通过BBB.BBBSub()调用类方法是错误的——VBA中类需要先实例化为对象才能调用其成员方法，否则会触发「对象变量或With块变量未设置」的错误（等同于你提到的NullReferenceException）。

修正后的完整代码 #

1. AAA类模块（保持类名AAA）

Public Sub AAASub()
    ' 声明BBB类型的对象变量
    Dim bbbObj As BBB
    
    ' 1. 实例化BBB对象（核心步骤）
    Set bbbObj = New BBB
    
    ' 2. 空引用防护：检查对象是否成功初始化
    If Not bbbObj Is Nothing Then
        ' 调用BBB类的方法
        bbbObj.BBBSub
    Else
        MsgBox "BBB对象初始化失败，无法调用BBBSub方法", vbExclamation
    End If
End Sub

2. BBB类模块（保持类名BBB）

Public Sub BBBSub()
    MsgBox "BBBSub started"
End Sub

3. 测试模块（新建标准模块，比如名为TestModule）

Sub TestCall()
    Dim aaaObj As AAA
    Set aaaObj = New AAA
    aaaObj.AAASub
End Sub

关键说明 #

• 对象实例化：必须用Set 对象变量 = New 类名创建类的实例，才能调用类的成员方法。
• 空引用防护：用If Not 对象变量 Is Nothing Then判断对象是否成功初始化，避免因实例化失败（比如类不存在、内存不足等极端情况）导致的错误。
• 调用方式：实例化对象后，直接通过对象变量.方法名调用，不需要Call关键字（VBA中Call是可选的）。

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