我正在使用 Visual Studio 2010 用 C++ 编写一个 32 位 DLL,我打算从 Excel VBA 调用它。
C++ cpp 文件包含以下内容:
#include "windows.h"
#include "stdafx.h"
int _stdcall fnGetData (const LPCSTR someText) {
MessageBoxA(0, someText, "wizzle wuzzle", MB_OK | MB_ICONINFORMATION);
return 42;
}
虽然 DEF 文件有这样的内容:
LIBRARY getpdata
EXPORTS
GetData=fnGetData
Excel VBA是这样的:
Option Explicit
Private Declare Function GetData Lib "getpdata.dll" (ByRef someText As String) As Integer
Public Sub PassSomeText()
Dim ret As Integer, someText As String
someText = "Hello from my Excel Subroutine."
ret = GetData(someText)
End Sub
代码编译良好,并生成一个 DLL。但是当我从Excel VBA调用DLL中的函数时,消息框中的文本是乱码:
我可能看到了指针的文本表示?如何获取Excel VBA传入的文本值?
最佳答案
正当我要发布我的问题时就弄清楚了。答案是在VBA函数声明中将ByRef更改为ByVal:
Private Declare Function GetData Lib "getpdata.dll" (ByVal someText As String) As Integer
关于c++ - 从 Excel VBA 编写并调用 C++ DLL,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29498179/