32位Excel中动态路径加载C++ DLL失败的技术求助

完全可以结合LoadLibrary、GetProcAddress和CallWindowProc来调用32位DLL中的函数，同时帮你排查32位加载失败的常见问题，具体实现和注意事项如下：

核心实现步骤 #

1. 按位数声明API函数 #

VBA需根据Excel的32/64位环境，声明匹配指针类型的系统API：

#If Win64 Then
    Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Declare PtrSafe Function GetProcAddress Lib "kernel32" (ByVal hModule As LongPtr, ByVal lpProcName As String) As LongPtr
    Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
    Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hModule As LongPtr) As Boolean
    Declare PtrSafe Function GetLastError Lib "kernel32" () As Long
#Else
    Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Declare Function FreeLibrary Lib "kernel32" (ByVal hModule As Long) As Boolean
    Declare Function GetLastError Lib "kernel32" () As Long
#End If

2. 动态加载并调用DLL函数 #

以导出的int __stdcall Add(int a, int b)函数为例，实现完整调用流程：

Sub Test32BitDLLCall()
    Dim dllPath As String
    Dim hDLL As LongPtr
    Dim pFunc As LongPtr
    Dim result As Long
    
    ' 网络环境必须用完整UNC路径，规避ChDir失效问题
    #If Win64 Then
        dllPath = "\\server\share\My64DLL.dll"
    #Else
        dllPath = "\\server\share\My32DLL.dll"
    #End If
    
    ' 加载DLL
    hDLL = LoadLibrary(dllPath)
    If hDLL = 0 Then
        MsgBox "DLL加载失败，错误码：" & GetLastError()
        Exit Sub
    End If
    
    ' 获取导出函数地址
    pFunc = GetProcAddress(hDLL, "Add")
    If pFunc = 0 Then
        MsgBox "函数地址获取失败，错误码：" & GetLastError()
        FreeLibrary hDLL
        Exit Sub
    End If
    
    ' 通过CallWindowProc转发调用：将函数参数映射到hWnd、Msg参数
    result = CallWindowProc(pFunc, 10, 20, 0, 0)
    MsgBox "调用结果：" & result
    
    ' 释放DLL资源
    FreeLibrary hDLL
End Sub

32位Excel加载失败的常见排查点 #

• 依赖项缺失：32位DLL通常依赖32位VC运行库（如vcruntime140.dll），用Dependency Walker工具检查依赖是否齐全，确保对应版本的32位运行库已安装。
• 路径与权限问题：
  • 必须使用完整UNC网络路径（如\\server\share\My32DLL.dll），不能依赖相对路径；
  • 确认Excel进程拥有该网络共享的访问权限（部分场景下Excel可能以系统账户运行，权限受限）。
• 函数签名不匹配：
  • C++函数必须声明为__stdcall（与VBA、CallWindowProc的调用约定一致），否则会导致栈溢出或调用失败；
  • 检查.def文件的导出名是否与GetProcAddress中使用的名称完全一致（区分大小写）。
• 位数混淆：确保32位Excel加载的是32位DLL，避免误加载64位版本。

复杂参数的处理 #

如果DLL函数涉及字符串、结构体等复杂类型，可通过VarPtr、StrPtr将变量指针传递给wParam或lParam，例如传递字符串：

' 假设DLL函数：void __stdcall PrintString(const char* str)
Dim inputStr As String
inputStr = "Hello from VBA"
Call CallWindowProc(pFunc, 0, 0, StrPtr(inputStr), 0)

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