尊敬的老师，请教一个Excel vba代码在不同Excel版本中兼容性的问题

Wang22345

，在Excel2007可以运行，在Excel2021就运行不了，我发现很多代码都这样。
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

主要是这一段代码，怎么在不添加ptrsafe的情况下，使代码自动兼容呢

Wang22345

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

主要是这一段代码。怎么在不添加ptrsafe的情况下，使代码自动兼容呢

ykcbf1100

32位和64位是不一样的。
你看下系统是32还是64位。

Wang22345

ykcbf1100 发表于 2024-11-6 12:49
32位和64位是不一样的。
你看下系统是32还是64位。

64位的系统

fenghuaxue

1. #If Win64 Then
   
2.     Declare PtrSafe Function SomeFunction Lib "SomeLibrary.dll" (ByVal arg1 As LongLong, ByVal arg2 As LongLong) As LongLong
   
3.     Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
   
4.     Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
5.     Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
6.     Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
7. #Else
   
8.     Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
   
9.     Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
10.     Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
11.     Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
12. #End If

复制代码

Wang22345

fenghuaxue 发表于 2024-11-6 13:22

这个我试过，没用