如何将32位VBA代码转换为64位VBA代码
问题描述:
我试图运行宏代码,但由于我使用的是64位Excel 2016,因此此代码无法工作。请帮我解决这个问题。如何将32位VBA代码转换为64位VBA代码
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
答
如果你需要运行两个你可以使用下面的#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)
谢谢大家..这是非常有用的,它的工作。 – April