VBA 可以枚举 COM 对象的方法或字段吗？

Question

我有一个 COM 对象（用 C#.NET 构建），正在 VBA (Excel) 中使用，如果能够枚举 COM 对象的字段并自动引用它们，那就太好了。在 .NET 中，这可以通过反射来完成。有没有办法在VBA中做到这一点？

所以，而不是

Dim x As MyCOMObject
Set x = New MyCOMObject
x.f1 = 1
x.f2 = 2
x.f3 = 3

更像：

Dim x As MyCOMObject
Set x = New MyCOMObject
For i = 0 to COMFieldCount(x) - 1
    SetCOMField(x, GetCOMFieldName(i), i+1)
Next i

Answer 1

您可能需要稍微改进一下这段代码，但它大致可以满足您的需求。
首先，您需要添加对“Typelib信息”TLBINF32.dll的引用。我不确定这是否是 Windows 的一部分，或者是我在计算机上安装的众多 SDK 中的一部分，但它位于 System32 文件夹中。

我假设您正在设置 COM 对象的属性，因此您将调用“property put”函数来设置对象的值。您可能需要检查这些属性的数据类型，我的代码中没有进行任何数据类型转换。

代码如下所示：

'Define the variables
Dim tliApp As TLI.TLIApplication
Dim typeinfo As TLI.typeinfo
Dim interface As TLI.InterfaceInfo
Dim member As TLI.MemberInfo

'Initialize typelib reflector
Set tliApp = New TLI.TLIApplication
'Get the type information about myObject (the COM object you want to process)
Set typeinfo = tliApp.ClassInfoFromObject(myObject)

'Set all properties of all the object's interfaces
For Each interface In typeinfo.Interfaces
    For Each member In interface.Members
        'If this is a "property put" function
        If member.InvokeKind = INVOKE_PROPERTYPUT Then
            'Invoke the mebmer and set someValue to it.
            'Note that you'll probably want to check what datatype to use and do some more error checking
            CallByName myObject, member.Name, VbLet, someValue
        End If
    Next
Next