如何将含Kernel32 API声明的VBA程序转换为64位版本

核心转换规则 #

• 所有API声明必须添加PtrSafe关键字，这是64位VBA的强制要求。
• 句柄、指针类型的变量（如进程句柄、API返回的句柄值），将原来的Long替换为LongPtr（64位下占8字节，适配系统位数）。
• 明确为32位的参数（如权限值、布尔值、进程ID、睡眠时长这类DWORD/BOOL类型），保留Long类型不变。
• 添加条件编译语句，让代码同时兼容32位和64位VBA环境。

转换后的完整代码 #

#If VBA7 Then
    Declare PtrSafe Function OpenProcess Lib "kernel32" ( _
        ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long _
    ) As LongPtr

    Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" ( _
        ByVal L_Prozess As LongPtr, _
        ByRef l_Ende As Long _
    ) As Long

    Declare PtrSafe Sub Sleep Lib "kernel32" ( _
        ByVal SleepTime As Long _
    )
#Else
    ' 兼容32位VBA的原有声明
    Declare Function OpenProcess Lib "kernel32" ( _
        ByVal dwDesiredAccess As Long, _
        ByVal bInheritHandle As Long, _
        ByVal dwProcessId As Long _
    ) As Long

    Declare Function GetExitCodeProcess Lib "kernel32" ( _
        ByVal L_Prozess As Long, _
        ByRef l_Ende As Long _
    ) As Long

    Declare Sub Sleep Lib "kernel32" ( _
        ByVal SleepTime As Long _
    )
#End If

关键细节说明 #

• OpenProcess：返回值是进程句柄（HANDLE），64位下必须用LongPtr；参数都是32位DWORD/BOOL类型，保留Long即可。
• GetExitCodeProcess：第一个参数是进程句柄，替换为LongPtr；第二个参数是输出参数，明确标注ByRef（VBA默认是ByRef，显式写出更清晰）。
• Sleep：参数是DWORD类型的毫秒数，32位已足够覆盖最大睡眠时长（约49天），仅需添加PtrSafe关键字，类型保留Long。

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