Help updating code for 64 bit use

[Javi]

Hi All,

I opened this workbook on a different computer and received the below error. Looking for some assistance making this code compatible with both 32-bit and 64-bit users.

Thanks!

Private Declare Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        
        Public yukleme As Variant
Dim r, lst_column As Long

 

[Javi]

After more researching I found the issue and solution.

Had to add "PrtSafe" to each declare statement.

Private Declare [B]PtrSafe [/B]Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare [B]PtrSafe[/B] Function GetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare [B]PtrSafe[/B] Function SetWindowLongA Lib "user32" _
        (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
        
        Public yukleme As Variant
Dim r, lst_column As Long

 

[MARK858]

Hi Javi, happy you found a working solution.

Just looking at your post if you want to manually format code in your postings then you need to use the Rich (BB code) tag option rather than the VBA tag to get it to display correctly on the forum (or the </> with RICH underneath it icon in the reply window)

Private Declare PtrSafe Function FindWindowA Lib "user32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

[RoryA]

FYI you need to do more than just add PtrSafe. All handles/pointers need to be changed to LongPtr rather than just Long. I suggest you read Jan Karel's page here: Excel: Declaring API functions in 64 bit Office

 

[Javi]

Thank you RoryA,

You are 100% correct. After I made that modification, I did not get the error any longer. Also I did not fully test all of the functionality of my workbook. Now that I've tested it the code is not function properly. I am looking into the link you provided. Thanks again.

 

[Javi]

My latest attempt to resolve this incompatibility is in the code below. I would greatly appreciate any help or assistance. The below code works well in a 32-bit system, when I open the workbook in a 64-bit environment it fails.

Private Declare Function FindWindowA Lib "USER32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function FindWindow Lib "USER32" _
        (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr



Private Declare Function GetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare PtrSafe Function GetWindowLongPtr Lib "USER32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    


Private Declare Function SetWindowLongA Lib "USER32" _
        (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function SetWindowLong Lib "USER32" _
        (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPtr


        
        Public yukleme As Variant
Dim r, lst_column As Long

 

[RoryA]

You'll need to post the code that actually uses those API calls as well, since there will almost certainly be changes required to variable types.

 

[Javi]

Thank you for your assistance. I ended up going in a different direction so the code is no longer needed. I do appreciate your replies.