如何在不改变ObjPtr的情况下向VBA方法传递COM对象/接口？

核心结论 #

VBA的强类型对象参数（As Object/As IUnknown等）会强制触发IUnknown::QueryInterface转换到目标接口，导致子程内的ObjPtr与原始值不一致。要保留原始指针且满足引用计数安全、API友好的需求，唯一可行的参数声明方式是使用As Any。

为什么普通声明不行 #

当你用As Object/As IUnknown声明参数时，VBA的对象绑定机制会自动对传入的COM对象调用QueryInterface，获取对应接口的指针——这意味着子程内拿到的ObjPtr是转换后的接口指针，而非原始对象的指针。即使搭配ByRef/ByVal，也无法绕过这个类型转换逻辑。

解决方案：As Any参数声明 #

As Any是VBA中少数绕过编译期类型检查的声明方式，它会直接传递变量的原始内存内容（对COM对象而言就是原始接口指针），不会触发QueryInterface，同时VBA仍会自动处理引用计数的AddRef/Release，保证安全。

代码示例（以你的CallCOMObjectVTableEntry需求为例）

' 声明：用As Any接收对象，保留原始ObjPtr
Sub CallCOMObjectVTableEntry(ByVal obj As Any, ByVal vtableOffset As LongPtr)
    ' 获取原始接口指针，与调用方的ObjPtr完全一致
    Dim originalInterfacePtr As LongPtr
    originalInterfacePtr = ObjPtr(obj)
    
    ' 此处编写VTable条目调用逻辑
    ' 例如：通过指针访问VTable、调用对应偏移的函数
    ' ...
End Sub

' 调用示例：使用者只需传入COM对象，无需处理指针
Sub TestCall()
    Dim targetObj As ISpecificInterface ' 假设这是你的目标COM接口
    Set targetObj = CreateObject("Your.COM.Object.ProgID")
    
    ' 直接传对象，原始ObjPtr会被保留
    CallCOMObjectVTableEntry targetObj, &H10 ' 传入VTable条目偏移
End Sub

关键注意事项 #

• 类型安全：As Any会关闭类型检查，需确保调用时传入的确实是COM对象，否则可能导致内存错误。
• 64位兼容性：务必使用LongPtr存储指针，避免在64位Office中出现溢出问题。
• 引用计数：VBA会自动对ByVal传递的As Any对象执行AddRef，子程退出时自动Release，无需手动管理，完全满足安全需求。

补充说明 #

ObjPtr函数本身能直接获取原始接口指针，是因为它读取的是变量存储的原始地址，不会触发QueryInterface——而As Any参数声明恰好复刻了这个逻辑，让参数传递时保留原始指针，同时维持VBA的引用计数机制。

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