如何在VBA代码中调用MATLAB生成的DLL文件？

一、C/C++ DLL调用问题（找不到入口点） #

MATLAB编译生成的C/C++ DLL并非标准Win32 API DLL，核心问题有两个：

• 函数名经过名称修饰，直接用matlabAdd无法定位入口；
• 函数参数要求使用MATLAB专属的mxArray类型，而非原生Double。

解决步骤： #

1. 查看MATLAB编译输出的头文件（如matlabAdd.h），找到正确的导出函数名，通常是带mlf前缀的封装入口，比如mlfMatlabAdd。
2. 在VBA中声明MATLAB Runtime核心函数和目标DLL函数，示例代码：

' 声明MATLAB Runtime内存操作函数
Private Declare PtrSafe Function mxCreateDoubleScalar Lib "libmx.dll" (ByVal value As Double) As LongPtr
Private Declare PtrSafe Function mxGetPr Lib "libmx.dll" (ByVal pm As LongPtr) As LongPtr
Private Declare PtrSafe Function mxDestroyArray Lib "libmx.dll" (ByVal pm As LongPtr) As Long
Private Declare PtrSafe Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)

' 声明MATLAB生成的DLL函数
Private Declare PtrSafe Function mlfMatlabAdd Lib "<你的DLL路径>\matlabAdd.dll" (ByVal outPtr As LongPtr, ByVal in1 As LongPtr, ByVal in2 As LongPtr) As Long

Sub CallMatlabAdd()
    Dim input1 As Double, input2 As Double, result As Double
    Dim mxIn1 As LongPtr, mxIn2 As LongPtr, mxOut As LongPtr, resultPtr As LongPtr
    
    input1 = 5: input2 = 3
    
    ' 创建MATLAB格式的参数数组
    mxIn1 = mxCreateDoubleScalar(input1)
    mxIn2 = mxCreateDoubleScalar(input2)
    mxOut = 0
    
    ' 调用MATLAB加法函数
    mlfMatlabAdd mxOut, mxIn1, mxIn2
    
    ' 从MATLAB数组中提取计算结果
    resultPtr = mxGetPr(mxOut)
    CopyMemory result, ByVal resultPtr, 8
    
    MsgBox "计算结果：" & result
    
    ' 释放MATLAB数组内存
    mxDestroyArray mxIn1
    mxDestroyArray mxIn2
    mxDestroyArray mxOut
End Sub

3. 确保运行环境已安装对应版本的MATLAB Runtime，且DLL路径配置正确。

二、C#/.NET DLL调用问题（无法添加引用） #

C#生成的DLL是.NET程序集，VBA无法直接引用非COM可见的.NET组件，需将其注册为COM对象：

解决步骤： #

1. 打开MATLAB生成的C#项目（如matlabAdd.csproj），修改项目属性：
   • 勾选「应用程序-程序集信息-使程序集COM可见」；
   • 勾选「签名-为程序集签名」，生成强命名密钥文件。
2. 编译项目后，以管理员身份运行命令提示符，用regasm.exe注册DLL：

regasm /codebase "你的DLL路径\matlabAdd.dll"

3. 在VBA中调用：可通过「工具-引用」选择注册后的COM组件，或用CreateObject动态调用，示例代码：

Sub CallDotNetMatlabAdd()
    Dim matlabObj As Object
    ' 替换为实际的命名空间和类名
    Set matlabObj = CreateObject("MatlabAddNamespace.matlabAddClass")
    
    Dim result As Double
    result = matlabObj.matlabAdd(5, 3)
    MsgBox "计算结果：" & result
    
    Set matlabObj = Nothing
End Sub

内容的提问来源于stack exchange，提问作者P.Lam