如何将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

如果你需要运行两个你可以使用下面的#If VBA7

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

一个很好的资源，PTRSAFE Win32 API的声明，这些应该在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 LongPtr 

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

可以在这里找到：Win32API_PtrSafe.txt

---

我对IIDFromString和AccessibleObjectFromWindow不太确定，但我认为他们应该是subs而不是functions。 lpsz应该是String，如下所示。也许有人可以证实这一点？

Private Declare PtrSafe Sub IIDFromString Lib "ole32" (_ 
    ByVal lpsz As String, ByRef lpiid As GUID) 

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