VBA - CallByName 不接受变体参数

解决方案：只需在 CallByName 语句中的 Value 两边加上括号即可强制对其求值。

Ex. CallByName MobClass, TargetData, vbLet, (Value)

感谢来自另一篇文章的 Rory，我可能会删除该文章，因为它不再相关并且可能重复。

我花了很长时间试图找出我使用 CallByName 的方式出了什么问题。我终于意识到，如果输入与其调用的输入参数或硬编码的输入参数的类型不完全相同，则其第四个参数（Args）将引发类型不匹配。

（我什至不明白它是如何或为什么这样做的，因为VarType(Variant/Integer) = VarType(Integer))

所以我要么需要一种方法让它接受变量输入或转换变量Variant/Integer to Integer（或创建一个新变量）没有巨大的选择案例。

编辑：所以我的问题不清楚，所以我会更详细地解释它。我有一堆课程，我想循环浏览并调用它们Let属性上。我的简化设置是：

Dim AllClasses as Collection 
Sub SetAll(TargetProperty as String, Value as Variant)

    For each ClassX in AllClasses

        CallByName ClassX, TargetProperty, vbLet, Value

    Next ClassX

End Sub 

问题是Value当它被初始化为Variant。我唯一能让它不抛出类型不匹配异常的时间是在初始化时Value作为属性想要的完全相同的类型，但我不能这样做，因为类中的数据类型不同。

编辑2：我要问关于整个问题的另一个问题，因为似乎没有人知道太多CallByName

编辑 3：以下是我们迄今为止所掌握的内容的摘要：

• CallByName的第四个参数 (Args) 在尝试调用时抛出类型不匹配Let类上的属性。

• 仅当尝试分配的值存储在Variant数据类型。如果变量被初始化为与变量相同的类型，它就可以完美地工作。Let如果值被硬编码到参数中，则属性需要 OR。

• The Let属性本身运行良好。它接受Variant数据类型就好了。

• 我的问题是：有没有办法阻止这个异常？我正在创造另一个帖子 https://stackoverflow.com/questions/49287139/vba-assign-a-value-to-multiple-classes-at-once-property-let关于我的整体问题的其他可能的解决方案。

问题是您通过引用而不是通过值传递属性参数，但是您无法传递对不同数据类型（变体 -> long）的引用，因为类型不匹配并且无法转换为这样也会改变调用者的数据类型。通过使用括号，您强制参数按值传递 https://learn.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/procedures/how-to-force-an-argument-to-be-passed-by-value它可以被转换为类型Long.

您可以通过使用来避免这种情况ByValin theProperty Letter代替ByRef（如果未设置则隐式使用）。您知道通过引用变量，属性中所做的更改也会更改调用者的值吗？

Example:

类通过示例

'Save as class module PassExample
Public Property Let PropByVal(ByVal NewVal As Long)
NewVal = 1
End Property
Public Property Let PropByRef(ByRef NewVal As Long)
NewVal = 1
End Property 

带测试子模块：

'save as standard module
Sub test()
Dim v As Variant
v = 0

Dim ExampleInstance As New PassExample

CallByName ExampleInstance, "PropByVal", VbLet, v 'this works
CallByName ExampleInstance, "PropByRef", VbLet, v 'type mismatch
CallByName ExampleInstance, "PropByRef", VbLet, (v) 'this works as ByRef is changed to byval
Debug.Print v ' shows 0, not 1 as it should be if referenced

CallByName ExampleInstance, "PropByRef", VbLet, CVar(v) ' works too as it passes a function-result that can't be referenced

End Sub

感谢 Rory 和 chris neilsen 提供了解决方案！