Upgraded Excel to 2013 now code doesnt work

[The Idea Dude]

Hi All,

I just upgraded to Excel 2013 and now am getting an error saying I need to update my code to allow for 64bit.

I tried changing to Declare PtrSafe Function but that didn't help.

Any help is appreciated.

The code that is generating the error is:

<code>
Private Declare Function GetCurrentThreadId _
Lib "kernel32" () _
As Long

Private Declare Function GetDesktopWindow _
Lib "user32" () _
As Long

Private Declare Function GetWindowLong _
Lib "user32" _
Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) _
As Long

Private Declare Function MessageBox _
Lib "user32" _
Alias "MessageBoxA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) _
As Long

Private Declare Function SetDlgItemText _
Lib "user32" _
Alias "SetDlgItemTextA" ( _
ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal lpString As String) _
As Long

Private Declare Function SetWindowsHookEx _
Lib "user32" _
Alias "SetWindowsHookExA" ( _
ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) _
As Long

Private Declare Function SetWindowText _
Lib "user32" _
Alias "SetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpString As String) _
As Long

Private Declare Function UnhookWindowsHookEx _
Lib "user32" ( _
ByVal hHook As Long) _
As Long
</code>

 

[Leith Ross]

Hello The Idea Dude,

Here are the 64 bit API declarations. Please note that GetWindowLongPtr replaces GetWindowLong in your code. You will need to do a find and replace before you run the code or it will fail.

Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long


Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As LongPtr


Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As LongPtr


Private Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long


Private Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As LongPtr, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long


Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr


Private Declare PtrSafe Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String) As Long


Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As LongPtr) As Long

 

[The Idea Dude]

Many thanks, finally got around to making the amendments. Really appreciate your help.

 

[Leith Ross]

Hello The Idea Dude,

You're welcome.