创建C++ DLL供Excel VBA调用时传入参数变为0的问题求助

这个问题90%的概率是你直接把DLL导出函数作为Excel工作表函数在单元格内调用导致的：Excel在调用自定义工作表函数时，默认会把所有输入参数封装为VARIANT类型传入，而你C++函数预期接收的是原生double类型，类型不匹配导致参数解析错误，拿到的自然是0值。

验证方法 #

你可以先运行以下VBA测试代码，排除DLL本身的问题：

Sub TestDllFunc()
    Dim inputVal As Double
    inputVal = 2.5
    Dim outputVal As Double
    outputVal = my_double(inputVal)
    MsgBox "输入值：" & CStr(inputVal) & " 输出值：" & CStr(outputVal)
End Sub

如果弹窗显示输出值为5.0，说明DLL和VBA声明完全正常，问题确实出在工作表直接调用的参数类型不匹配上。

解决方案 #

方案1：添加VBA包装层（最简单，推荐） #

在VBA模块中新增一个中转函数，显式指定参数类型为Double，再在工作表中调用这个中转函数即可：

Function Sheet_MyDouble(ByVal val As Double) As Double
    Sheet_MyDouble = my_double(val)
End Function

之后在单元格里写=Sheet_MyDouble(你要传入的数值)就能正常拿到结果。

方案2：修改C++函数适配VARIANT参数 #

如果不想加VBA包装，可以直接修改C++函数接收VARIANT类型参数，自行解析数值：

#include <Windows.h>
extern "C" double __stdcall my_double(VARIANT A)
{
    if (A.vt == VT_R8) {
        return 2.0 * A.dblVal;
    }
    // 也可以添加类型转换逻辑，兼容整数等其他输入类型
    return 0.0;
}

修改后无需改VBA声明，直接在单元格调用也能正常解析参数。

其他排查点 #

如果上述VBA测试也返回0，可以检查以下配置：

• 检查Source.def文件，LIBRARY字段后面需要填写你生成的DLL的文件名（不带后缀），比如你生成的是Example.dll，就要写成LIBRARY Example，空的LIBRARY字段可能导致导出函数的调用约定适配异常。
• 确认编译DLL时没有启用/Gz（强制__stdcall调用约定）这类编译选项，x64下微软有默认的统一调用约定，额外指定调用约定可能导致参数传递异常。

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