Excel 2016 32位调用C++ DLL失败，寻求解决方案

核心问题拆解 #

• Error 53（找不到文件）：静态Declare语句仅指定crypt32.dll时，Excel会优先在系统路径（如SysWOW64）查找，而非你存放DLL的自定义路径；LoadLibrary成功加载不代表静态声明能复用该模块，二者是独立的加载逻辑。
• Error 453（找不到入口点）：虽指定了别名_crypt32@4，但路径问题未解决时，即使别名正确也无法定位函数；此外，字符串传递和调用约定的隐性不匹配也可能引发该错误。

解决方案步骤 #

1. 用.def文件固定导出函数名（规避名字修饰问题） #

在32位DLL项目中添加crypt32.def文件，内容如下：

LIBRARY crypt32
EXPORTS
crypt32 @1
FreeBSTR @2

在Visual Studio项目属性中，将链接器->输入->模块定义文件设置为该.def文件。这样导出的函数名会保持原始名称crypt32，无需依赖带修饰的别名，减少出错概率。

2. 修改VBA为动态加载逻辑（解决路径问题） #

静态Declare无法使用动态路径，改用LoadLibrary+GetProcAddress动态获取函数地址后调用，修改后的VBA代码如下：

Option Explicit

#If Win64 Then
    Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As LongPtr
    Private Declare PtrSafe Function FreeLibrary Lib "kernel32" (ByVal hModule As LongPtr) As Long
    Private Declare PtrSafe Function crypt64 Lib "crypt64.dll" (ByVal inputs As String) As String
    Private Declare PtrSafe Sub FreeBSTR64 Lib "crypt64.dll" (ByVal bstr As String)
#Else
    Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
    Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
    Private Declare Function FreeLibrary Lib "kernel32" (ByVal hModule As Long) As Long
    Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As String, ByVal lParam As Long) As String
    Private Declare Sub FreeBSTR32 Lib "crypt32.dll" (ByVal bstr As String)
#End If

Sub testconnect()
    Dim dllPath As String, hModule As Variant
    Dim cryptFuncAddr As Variant
    Dim result As String

    #If Win64 Then
        dllPath = ThisWorkbook.Path & "\Code\crypt64.dll"
        hModule = LoadLibrary(dllPath)
        If hModule = 0 Then
            MsgBox "无法加载64位DLL"
            Exit Sub
        End If
        result = crypt64("5")
        MsgBox result
        FreeBSTR64 result
        FreeLibrary hModule
    #Else
        dllPath = ThisWorkbook.Path & "\Code\crypt32.dll"
        hModule = LoadLibrary(dllPath)
        If hModule = 0 Then
            MsgBox "无法加载32位DLL"
            Exit Sub
        End If
        ' 获取函数地址
        cryptFuncAddr = GetProcAddress(hModule, "crypt32")
        If cryptFuncAddr = 0 Then
            MsgBox "找不到函数入口点"
            FreeLibrary hModule
            Exit Sub
        End If
        ' 调用函数
        result = CallWindowProc(cryptFuncAddr, 0, 0, "5", 0)
        MsgBox result
        ' 释放BSTR内存
        FreeBSTR32 result
        FreeLibrary hModule
    #End If
End Sub

3. 额外注意事项 #

• 编译配置：32位DLL需编译为x86平台，运行库选择Multi-threaded DLL (/MD)，避免与Excel运行库冲突。
• 路径处理：若DLL路径包含空格，需用Chr(34)包裹，例如dllPath = Chr(34) & ThisWorkbook.Path & "\Code\crypt32.dll" & Chr(34)。
• 内存管理：调用FreeBSTR手动释放C++返回的BSTR，避免长期运行引发内存泄漏。

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