VBA类模块方法调用报错：对象不支持该属性或方法，求排查

你踩了VBA里一个很容易混淆的坑——Sub过程调用时的括号使用错误，导致对象参数被意外转换了，具体来说：

为什么声明具体类时会报错？ #

看你出错的代码行：

a.MyMethod (b)

在VBA里，调用无返回值的Sub过程时，如果直接在参数外面加括号（不用Call关键字），会触发一个特殊行为：VBA会强制把括号里的对象转换为它的默认属性值。而你的Class2没有设置任何默认属性，这就导致传递给MyMethod的不是Class2对象本身，而是一个无效的空值/变体，自然就会抛出"Object doesn't support this property or method"的错误——因为MyMethod期待的是Class2对象，结果收到的根本不是。

为什么用Variant就能运行？ #

当变量声明为Variant时，VBA对括号的处理逻辑会宽松很多：它会保留对象的引用，不会强制去求值默认属性，所以b作为Class2对象能被正确传递给MyMethod，代码也就正常运行了。但这只是一种"巧合"的兼容，并不是正确的写法。

正确的写法有两种 #

1. 去掉括号（推荐） #

调用Sub过程的标准写法就是直接传递参数，不需要括号：

Private Sub CommandButton1_Click()
    Dim a As Class1
    Dim b As Class2
    Set a = New Class1
    Set b = New Class2
    b.Foo = "Bar"
    a.MyMethod b  ' 去掉括号，正确传递对象
End Sub

2. 使用Call关键字加括号 #

如果习惯用括号包裹参数，可以用Call关键字，这时候括号不会触发默认属性转换：

Private Sub CommandButton1_Click()
    Dim a As Class1
    Dim b As Class2
    Set a = New Class1
    Set b = New Class2
    b.Foo = "Bar"
    Call a.MyMethod(b)  ' 用Call+括号，正确传递对象
End Sub

补充VBA括号的核心规则 #

• 调用Sub（无返回值）：直接写过程名 参数1, 参数2；如果用Call，则必须写Call 过程名(参数1, 参数2)
• 调用Function（有返回值）：如果要接收返回值，必须加括号（比如result = 函数名(参数)）；如果忽略返回值，也可以像Sub一样不加括号
• 对象参数加括号（无Call）：会强制求值对象的默认属性，若对象无默认属性则出错，这就是你遇到的问题

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