32位VBA转64位仍报错：已添加PtrSafe与LongPtr仍提示转换问题

你的操作部分正确，但存在关键错误，具体分析和后续处理步骤如下：

一、当前操作的对错判断 #

1. 正确的部分：给所有API声明添加PtrSafe关键字是对的——这是64位Excel VBA对外部API的强制要求，缺少该关键字会直接触发运行错误。
2. 错误的部分：全局替换所有Long为LongPtr完全没必要，甚至会导致错误。LongPtr是专门用来存储指针、句柄这类内存地址的类型，普通整数、API中明确为32位的参数/常量都不该替换。

二、必须修正的内容 #

1. 修正API声明中的错误参数类型 #

看你提供的API示例，存在两处错误：

• OpenRRHelpFile（即ShellExecuteA）的nShowCmd参数：Windows API中该参数是32位整数类型，无论32/64位系统都保持32位，需改回Long。
• SetWindowLongPtr的nIndex参数：比如GWL_HWNDPARENT这类常量是固定的32位整数（值为-8），参数类型应为Long，而非LongPtr。

修正后的正确API声明：

Private Declare PtrSafe Function OpenRRHelpFile Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr

2. 还原不必要的LongPtr替换 #

• 普通计数/整数变量：比如代码中的lCtlCnt只是用来统计控件数量，用Long完全足够，改回Dim lCtlCnt As Long。
• API常量：确保像GWL_HWNDPARENT这类常量的类型是Long，而非LongPtr，比如定义为Const GWL_HWNDPARENT As Long = -8。

三、推荐的优化处理（兼容32/64位） #

如果需要让代码同时在32位和64位Excel中运行，建议加入条件编译指令：

#If VBA7 Then
    ' 64位Excel（VBA7及以上）的API声明
    Private Declare PtrSafe Function OpenRRHelpFile Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Const GWL_HWNDPARENT As Long = -8
#Else
    ' 32位Excel的API声明
    Private Declare Function OpenRRHelpFile Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Const GWL_HWNDPARENT As Long = -8
#End If

四、最后检查与测试 #

1. 遍历所有模块，排查其他API声明，确保每个参数的类型符合Windows API文档的定义（比如hwnd、返回值为句柄/指针的用LongPtr，普通整数用Long）。
2. 运行代码，若出现“类型不匹配”错误，直接定位到报错行，检查变量/参数类型是否正确。

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