API declarations for Win32 on a 64 bit machine

[MattGreer]

So I've run across this issue before and wasn't sure if there was a workaround.

In this example on stackoverflow,

https://stackoverflow.com/questions/38018232/send-keys-is-disabling-numlock

(scroll to the end of the comments for the example code, there's an IF statement in the API declarations section that checks for 64 vs 32 bit. On a 64 bit machine, all the code after the "#Else" statement is an error; it's all red. Code hasn't even run yet, Excel just recognizes that there's an issue with it.

Is there a workaround? I do have a 32 bit machine as well and I'd really like to be able to use this spreadsheet on either machine.

Oh, I'll paste the code here if that helps:

' API declarations
#If VBA7 And Win64 Then
    Private Declare PtrSafe Function GetVersionEx Lib "Kernel32" _
        Alias "GetVersionExA" _
        (lpVersionInformation As OSVERSIONINFO) As Long

    Private Declare PtrSafe Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwflags As Long, ByVal dwExtraInfo As Long)

    Private Declare PtrSafe Function GetKeyboardState Lib "user32" _
        (pbKeyState As Byte) As Long

    Private Declare PtrSafe Function SetKeyboardState Lib "user32" _
        (lppbKeyState As Byte) As Long
#Else
    Private Declare Function GetVersionEx Lib "Kernel32" _
        Alias "GetVersionExA" _
        (lpVersionInformation As OSVERSIONINFO) As Long

    Private Declare Sub keybd_event Lib "user32" _
        (ByVal bVk As Byte, _
        ByVal bScan As Byte, _
        ByVal dwflags As Long, ByVal dwExtraInfo As Long)

    Private Declare Function GetKeyboardState Lib "user32" _
        (pbKeyState As Byte) As Long

    Private Declare Function SetKeyboardState Lib "user32" _
        (lppbKeyState As Byte) As Long
#End If

Thank you for your help!



Thanks!!


Matt

 

[MattGreer]

I never find the answer until I ask for help.

So I have to add 'PtrSafe' after the 'Declare' statement in the 32-bit section as well. I haven't tested the code yet but it ain't red no more.

https://docs.microsoft.com/en-us/of...64-bit-visual-basic-for-applications-overview

Thanks!!


Matt

 

[Dan_W]

Hi Matt

I appreciate that some time has passed since your posts, but perhaps for the benefit of anyone else who comes across this post, it is worth noting that the #If/#Else construct you referenced is conditional compilation, and depending on the constants used, will direct VBA through either of the two routes. For those using 64 bit office, all API Declarations require the addition of the word PtrSafe. If they don't, then they will appear in red as though there is an error in the line of the code. If the API Declarations in red appear in the 32-bit part of the conditional compilation (ordinarily, the bottom half) then that will mean that you're viewing the code on a 64bit version of Office, and provided that the conditional compilation is set up - you can ignore the red lines in 32bit section because VBA certainly will be.