c++ - Excel VBA C++ .dll

Question

第一次发帖。我正在尝试按照那里的大量教程将 C++ dll 编译为 Excel 函数并将其作为 Excel 函数运行，但似乎无法使其正常工作。我正在运行 Windows 10 64 位、Visual Studio Community 2017 和 Excel 2016 64 位。

我已经按照那里的教程进行操作。我启动了一个新项目作为“Windows 桌面向导”，并创建了一个空项目作为 DLL。这是我下面的代码。 只有这两个文件，在我项目下的“Source Files”文件夹中。

函数.cpp:

double __stdcall squareFxn(double x) {
    return x * x;
}

这是我的 Def 文件，defFile.def:

LIBRARY "square"
EXPORTS
squareFxn

在项目属性中，我确保在配置管理器中将平台设置为 x64，并将不带引号的“defFile.def”添加到链接器/输入/模块定义文件。

它编译得很好。我将以下内容放入 VBA 中:

Declare PtrSafe Function squareFxn Lib "C:\MyPath\square.dll" (ByVal x As Double) As Double

当我在 Visual Studio 中调试并在 Excel 单元格中运行时:

=squareFxn(5)

Visual Studio 表示 x 是一个极小的数字 (6.234E-310)，函数返回零。

我遇到的另一个问题是当我尝试将此作为引用进行时，并进行适当的更改(funct.cpp 中的 squareFxn(double &x) 和 VBA 函数声明中的 ByRef 而不是 ByVal)，我是收到读取访问错误。我尝试以管理员身份运行 Excel，但无济于事。

有人知道这里发生了什么吗？任何帮助将不胜感激!!

Answer 1

您可能需要 VBA 中的包装函数，以便将表示单元格的 Variant(14 字节)转换为 Double(8 字节)。至少，这适用于我的情况:VSE2017、x64 DLL 与 XL2016x64 一起构建。例如:

在 CPP 中:

extern "C" __declspec(dllexport) double __cdecl myCPPfunc(double x)
{
    return some_double_expression;
}

在 VBA 中:

Public Declare PtrSafe Function myVBAfunc Lib "complete_path_to_my.DLL" Alias "myCPPfunc" (ByVal x As Double) As Double

Function WS_myVBAfunc(ByVal x#)
Dim result#
result = myVBAfunc(x)
WS_myVBAfunc = result
End Function

您还想修改 WS_myVBAfunc 以便它接受并返回整个单元格区域。这大大加快了整个过程。