如何将 32 位 VBA 代码转换为 64 位 VBA 代码

Question

我正在尝试运行宏代码，但由于我使用的是 64 位 Excel 2016，因此此代码不起作用。请帮我解决这个问题。

Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Private Declare Function IIDFromString Lib "ole32" _
(ByVal lpsz As Long, ByRef lpiid As GUID) As Long

Private Declare Function AccessibleObjectFromWindow Lib "oleacc" _
(ByVal hWnd As Long, ByVal dwId As Long, ByRef riid As GUID, _
ByRef ppvObject As Object) As Long

Answer 1

这些应该适用于 64 位 Excel

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
  (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, _
  ByVal lpsz2 As String) As LongPtr

Private Declare PtrSafe Function IIDFromString Lib "ole32" _
  (ByVal lpsz As LongPtr, ByRef lpiid As GUID) As Long

Private Declare PtrSafe Function AccessibleObjectFromWindow Lib "oleacc" _
  (ByVal Hwnd As LongPtr, ByVal dwId As Long, ByRef riid As GUID, _
  ByRef ppvObject As Object) As Long

如果您需要它在两者上运行，您可以使用以下#If VBA7

#If VBA7 Then
    '64 bit declares here
#Else
    '32 bit declares here
#End If

PtrSafe Win32 API 声明的一个很好的资源可以在这里找到：Win32API_PtrSafe.txt

Answer 2

我们需要做以下两个代码更改：

1. 将Long 数据类型替换为LongPtr，在所有位置 脚本
2. 您需要将私有函数声明更改为 下面：

• 旧：

  Private Declare Function GetTimeZoneInformation Lib "kernel32" ( _
             lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long
  

• 新：

  Private Declare PtrSafe Function GetTimeZoneInformation Lib "kernel32" ( _
         lpTimeZoneInformation As TIME_ZONE_INFORMATION) As LongPtr