无需注册的C++ COM组件能否在VBA中引用使用？

当然可以实现！免注册COM（也叫Registration-Free COM）完全支持在VBA中调用C++ ATL组件，作为经常处理COM与VBA交互的开发者，我一步步带你搞定这个流程，从项目配置到VBA调用的全细节都理清楚。

免注册COM本质是通过并行存储（SxS）的manifest清单文件，告诉系统组件的位置、接口ID、CLSID等关键信息，替代传统的注册表写入。ATL项目天生支持生成符合要求的manifest，所以你的需求完全可行。

假设你已经创建了ATL项目并添加了MyClass和AddNumbers方法，接下来需要调整VS项目设置以生成正确的manifest：

• 右键你的ATL项目 → 属性
• 配置属性 → 链接器 → 清单文件 → 生成清单：设为「是(/MANIFEST)」
• 配置属性 → C/C++ → 所有选项：确保「嵌入清单」相关设置保持默认（VS会自动处理）
• 检查你的接口定义，确保IMyClass和AddNumbers方法的ATL属性正确，比如：

  [object, uuid("你的接口UUID"), dual, nonextensible, helpstring("IMyClass Interface"), pointer_default(unique)]
  __interface IMyClass : IDispatch
  {
      [id(1), helpstring("方法AddNumbers")] HRESULT AddNumbers([in] long a, [in] long b, [out, retval] long* pResult);
  };
  

编译项目后，输出目录会生成一个形如MyComComponent.dll.manifest的文件，里面包含组件的CLSID、ProgID等关键信息，这个文件是免注册的核心。

VBA本身不直接识别manifest，需要通过Windows API创建激活上下文来加载免注册组件，具体步骤如下：

1. 声明必要的Windows API #

Option Explicit

' 激活上下文相关API（适配32/64位Office）
Private Declare PtrSafe Function CreateActCtx Lib "kernel32.dll" (ByRef pActCtx As ACTCTX) As LongPtr
Private Declare PtrSafe Function ActivateActCtx Lib "kernel32.dll" (ByVal hActCtx As LongPtr, ByRef lpCookie As LongPtr) As Boolean
Private Declare PtrSafe Function DeactivateActCtx Lib "kernel32.dll" (ByVal dwFlags As Long, ByVal lpCookie As LongPtr) As Boolean
Private Declare PtrSafe Function ReleaseActCtx Lib "kernel32.dll" (ByVal hActCtx As LongPtr) As Boolean

' 激活上下文结构定义
Private Type ACTCTX
    cbSize As Long
    dwFlags As Long
    lpSource As String
    lpAssemblyDirectory As String
    lpResourceName As String
    lpApplicationName As String
    hModule As LongPtr
End Type

' 激活上下文标志常量
Private Const ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID As Long = &H4
Private Const ACTCTX_FLAG_SOURCE_VALID As Long = &H2

2. 编写加载/卸载组件的辅助函数 #

Private Function LoadRegistrationFreeCOM(ByVal manifestPath As String, ByVal componentDir As String) As LongPtr
    Dim actCtx As ACTCTX
    Dim hActCtx As LongPtr
    Dim cookie As LongPtr
    
    ' 初始化激活上下文结构
    With actCtx
        .cbSize = Len(actCtx)
        .dwFlags = ACTCTX_FLAG_SOURCE_VALID Or ACTCTX_FLAG_ASSEMBLY_DIRECTORY_VALID
        .lpSource = manifestPath  ' manifest文件的绝对路径
        .lpAssemblyDirectory = componentDir  ' COM组件所在目录的绝对路径
    End With
    
    ' 创建激活上下文
    hActCtx = CreateActCtx(actCtx)
    If hActCtx = 0 Then
        Err.Raise vbObjectError + 1001, , "无法创建激活上下文，错误码：" & Err.LastDllError
        LoadRegistrationFreeCOM = 0
        Exit Function
    End If
    
    ' 激活上下文
    If Not ActivateActCtx(hActCtx, cookie) Then
        ReleaseActCtx hActCtx
        Err.Raise vbObjectError + 1002, , "无法激活上下文，错误码：" & Err.LastDllError
        LoadRegistrationFreeCOM = 0
        Exit Function
    End If
    
    LoadRegistrationFreeCOM = hActCtx
End Function

Private Sub UnloadRegistrationFreeCOM(ByVal hActCtx As LongPtr, ByVal cookie As LongPtr)
    ' 释放激活上下文资源
    DeactivateActCtx 0, cookie
    ReleaseActCtx hActCtx
End Sub

3. 调用你的COM组件方法 #

Sub TestAddNumbers()
    Dim hActCtx As LongPtr
    Dim cookie As LongPtr
    Dim myObj As Object
    Dim result As Long
    
    On Error GoTo Cleanup
    
    ' 替换成你的manifest路径和组件目录（必须用绝对路径）
    Dim manifestPath As String
    Dim componentDir As String
    manifestPath = "C:\Projects\MyComComponent\Debug\MyComComponent.dll.manifest"
    componentDir = "C:\Projects\MyComComponent\Debug\"
    
    ' 加载激活上下文
    hActCtx = LoadRegistrationFreeCOM(manifestPath, componentDir)
    If hActCtx = 0 Then Exit Sub
    
    ' 创建COM对象（这里用ProgID，和你ATL项目中设置的一致）
    Set myObj = CreateObject("MyComComponent.MyClass")
    
    ' 调用AddNumbers方法
    result = myObj.AddNumbers(10, 20)
    MsgBox "10 + 20 = " & result, vbInformation, "调用结果"
    
Cleanup:
    ' 清理资源
    If Not myObj Is Nothing Then Set myObj = Nothing
    If hActCtx <> 0 Then UnloadRegistrationFreeCOM hActCtx, cookie
    If Err.Number <> 0 Then MsgBox "错误：" & Err.Description, vbCritical
End Sub

• manifest正确性：VS生成的manifest一般没问题，但如果修改过接口/组件信息，务必重新编译生成新的manifest。
• 位数兼容性：32位Office必须调用32位编译的ATL组件，64位Office对应64位组件，否则会出现「类未注册」错误。
• 路径问题：manifest和组件目录必须用绝对路径，VBA相对路径容易出现权限或寻址错误。
• 权限验证：确保Office程序有组件所在目录的读取权限。

• 出现「找不到类」：检查manifest中的ProgID/CLSID是否与组件一致，或者位数是否匹配。
• 激活上下文创建失败：用Windows自带的mt.exe工具验证manifest有效性（命令：mt.exe -validate 你的manifest路径），同时确认路径无误。

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