如何封送返回Double()的.NET函数以在VBA中调用？

我刚好处理过类似的场景，完全可以用MarshalAs特性直接实现.NET到VBA的Double数组返回，不需要手动用Marshal.Copy折腾内存复制。下面给你一步步拆解实现方法：

1. .NET端的代码配置 #

首先得确保你的类和方法对COM可见，然后给返回值加上正确的MarshalAs特性——关键是指定UnmanagedType.SafeArray，并明确数组元素类型为VT_R8（对应Double类型）。

示例C#代码：

using System.Runtime.InteropServices;

// 标记类为COM可见
[ComVisible(true)]
public class DoubleArrayService
{
    // 配置返回值为COM兼容的SafeArray，元素类型是Double
    [return: MarshalAs(UnmanagedType.SafeArray, SafeArraySubType = VarEnum.VT_R8)]
    public double[] GetSampleDoubleArray()
    {
        // 这里替换成你的实际数组生成逻辑
        return new double[] { 1.5, 3.2, 5.7, 9.1 };
    }
}

2. 编译并注册.NET程序集 #

• 打开项目属性，勾选使程序集COM可见；如果是测试阶段，可以顺便勾选注册COM互操作，这样编译后系统会自动注册组件。
• 如果是手动注册，用管理员权限打开命令提示符，运行：

  regasm.exe YourAssembly.dll /codebase
  

  （/codebase参数会告诉COM组件的位置，避免找不到程序集）

3. VBA端的调用实现 #

在VBA里，你可以直接引用注册后的COM组件，或者用CreateObject动态创建实例，然后直接调用方法获取数组——VBA会自动把COM的SafeArray转换成Variant数组，直接用就行。

示例VBA代码：

Sub CallDotNetDoubleArray()
    Dim dotNetService As Object
    Dim doubleArr As Variant
    
    ' 创建.NET组件实例，替换成你的命名空间+类名
    Set dotNetService = CreateObject("YourNamespace.DoubleArrayService")
    
    ' 调用方法获取数组
    doubleArr = dotNetService.GetSampleDoubleArray()
    
    ' 测试输出数组内容
    Dim idx As Integer
    For idx = LBound(doubleArr) To UBound(doubleArr)
        Debug.Print "索引" & idx & ": " & doubleArr(idx)
    Next idx
End Sub

为什么不用Marshal.Copy？ #

当你用MarshalAs(UnmanagedType.SafeArray)标记返回值时，CLR会自动完成托管数组到COM SafeArray的封送转换，VBA原生支持SafeArray，所以不需要手动去复制内存。Marshal.Copy更多是在你需要直接操作非托管内存指针的时候才用，这里完全没必要多此一举。

踩坑提醒 #

• 如果用的是.NET Core/.NET 5+，COM互操作需要额外生成类型库，用tlbexp.exe生成后再用regsvr32注册，.NET Framework的话直接用regasm更方便。
• 一定要确认SafeArraySubType的枚举值：VT_R8对应Double，VT_R4是Single，填错会导致VBA拿到的数组类型不对。
• 注册组件时必须用管理员权限，否则会注册失败。

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