如果想在64位系统上使用，请检查更新declare语句，用ptrsafe属性标记它们

wsunday

1. Public Type POINTAPI
   
2.     X As Long
   
3.     Y As Long
   
4. End Type
   
5. Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
6. Public Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
   
7. Public Popup_Menu       As CommandBar       '指定弹出式菜单
   
8. Public LastSelect_Menu  As MSForms.Image    '最后选择的菜单
   
9. Public MenuCount        As Integer          '子菜单数量
   
10. Public hForm            As Long             '窗口句柄
    
11. Public intLevel         As Integer          '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级)
    
12. Public bAbortEnabled    As Boolean          '标识放弃菜单项是否可用
    
13. Public bItemCheck       As Boolean          '标识音效菜单是否CheckOn
    
14. Public bMenuSelected    As Boolean          '标识菜单是否点击
    
15. Public pt               As POINTAPI         '定义点
    
16. Public faceid As Integer                    '图标ID
    
17. Public faceidselect As Integer              '选择的图标
    
18. Public fistid As Integer                    '第一个图标号
    
19. Public lastid As Integer                    '最后一个图标号
    
20. Public selectrow, selectcol As Integer
    
21. Public Mcro(50) As String
    
22. Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    
23. Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
24. Public Const GWL_STYLE = (-16)
    
25. Public Const WS_THICKFRAME As Long = &H40000     '(回復大小)
    
26. Public Const WS_MINIMIZEBOX As Long = &H20000    '(最小化)
    
27. Public Const WS_MAXIMIZEBOX As Long = &H10000    '(最大化)

复制代码

如何调整成支持64位系统？
如果需要32,64都支持怎么弄？

zhaogang1960

请参考VBA帮助
Declare 语句 PtrSafe 关键字
带有 PtrSafe 关键字的 Declare 语句为建议的语法。要使包括 PtrSafe 的 Declare 语句能同时在 32 位和 64 位平台上的 VBA7 开发环境中正确运行，必须先将 Declare 语句中所有需要存储 64 位数的数据类型（参数和返回值）更新为使用 LongLong（对于 64 位整数）或 LongPtr（对于指针和句柄）。为确保与 VBA 版本 6 和更早版本的向后兼容性，请使用下面的构造：

#If Vba7 Then
Declare PtrSafe Sub...
#Else
Declare Sub...
#EndIf

wsunday

zhaogang1960 发表于 2014-2-24 19:35
请参考VBA帮助
Declare 语句 PtrSafe 关键字
带有 PtrSafe 关键字的 Declare 语句为建议的语法。要使包括 ...

1. If VBA7Then
   
2.     Public Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongLong
   
3.     Public Declare PtrSafe Function ClientToScreen Lib "user32" (ByVal hWnd As LongLong, lpPoint As POINTAPI) As LongLong
   
4.     Public Popup_Menu       As CommandBar       '指定弹出式菜单
   
5.     Public LastSelect_Menu  As MSForms.Image    '最后选择的菜单
   
6.     Public MenuCount        As Integer          '子菜单数量
   
7.     Public hForm            As Long             '窗口句柄
   
8.     Public intLevel         As Integer          '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级)
   
9.     Public bAbortEnabled    As Boolean          '标识放弃菜单项是否可用
   
10.     Public bItemCheck       As Boolean          '标识音效菜单是否CheckOn
    
11.     Public bMenuSelected    As Boolean          '标识菜单是否点击
    
12.     Public pt               As POINTAPI         '定义点
    
13.     Public faceid As Integer                    '图标ID
    
14.     Public faceidselect As Integer              '选择的图标
    
15.     Public fistid As Integer                    '第一个图标号
    
16.     Public lastid As Integer                    '最后一个图标号
    
17.     Public selectrow, selectcol As Integer
    
18.     Public Mcro(50) As String
    
19.     Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong) As LongLong
    
20.     Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As LongLong, ByVal nIndex As LongLong, ByVal dwNewLong As LongLong) As LongLong
    
21.     Public Const GWL_STYLE = (-16)
    
22.     Public Const WS_THICKFRAME As Long = &H40000     '(回復大小)
    
23.     Public Const WS_MINIMIZEBOX As Long = &H20000    '(最小化)
    
24.     Public Const WS_MAXIMIZEBOX As Long = &H10000    '(最大化)
    
25. Else
    
26.     Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
27.     Public Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
    
28.     Public Popup_Menu       As CommandBar       '指定弹出式菜单
    
29.     Public LastSelect_Menu  As MSForms.Image    '最后选择的菜单
    
30.     Public MenuCount        As Integer          '子菜单数量
    
31.     Public hForm            As Long             '窗口句柄
    
32.     Public intLevel         As Integer          '级别标识,用于设置Radio菜单(游戏菜单中:初级,中级,高级)
    
33.     Public bAbortEnabled    As Boolean          '标识放弃菜单项是否可用
    
34.     Public bItemCheck       As Boolean          '标识音效菜单是否CheckOn
    
35.     Public bMenuSelected    As Boolean          '标识菜单是否点击
    
36.     Public pt               As POINTAPI         '定义点
    
37.     Public faceid As Integer                    '图标ID
    
38.     Public faceidselect As Integer              '选择的图标
    
39.     Public fistid As Integer                    '第一个图标号
    
40.     Public lastid As Integer                    '最后一个图标号
    
41.     Public selectrow, selectcol As Integer
    
42.     Public Mcro(50) As String
    
43.     Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    
44.     Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    
45.     Public Const GWL_STYLE = (-16)
    
46.     Public Const WS_THICKFRAME As Long = &H40000     '(回復大小)
    
47.     Public Const WS_MINIMIZEBOX As Long = &H20000    '(最小化)
    
48.     Public Const WS_MAXIMIZEBOX As Long = &H10000    '(最大化)
    
49. End If

复制代码

VBA7为无效外部引用， win7 64位系统

zhaogang1960

wsunday 发表于 2014-2-24 20:46
VBA7为无效外部引用， win7 64位系统

1. #If Win64 Then

复制代码

wsunday

zhaogang1960 发表于 2014-2-24 20:50

顺便问一句if前  加  # 跟不加  #号的主要区别是啥？

sevenstar

wsunday 发表于 2014-2-25 09:21
顺便问一句if前  加  # 跟不加  #号的主要区别是啥？

#If...Then...#Else 条件编译指令
条件编译已选择的 Visual Basic 代码块。
简单的说就是若条件成立就编译。是编译而不是执行。

zhaogang1960

wsunday 发表于 2014-2-25 09:21
顺便问一句if前  加  # 跟不加  #号的主要区别是啥？

举例(请注意：PtrSafe不是Excel2003的语句，不能用在2003)：

1. #If Win64 Then
   
2.     Public Declare PtrSafe Function ShellExecute 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
   
3. #Else
   
4.     Public Declare Function ShellExecute 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
   
5. #End If
   

复制代码

liucqa

http://club.excelhome.net/thread-809769-1-1.html

EXCEL20022002

所以说  啊,,,要想用64位  win8的系统,,要修改不少东西啊,,

cncc

谢谢各位的解答