Adapt code to be compatible with either 64 bit or 32 bit Excel

[davidam]

Hello All,
A few years ago I switched to 64 bit Office. I am now revisiting some code that was written with a 32 bit version. I received an error re: compatibility.
I found that I can resolve this issue for my 64 bit code by converting the declaration to 'PtrSafe' as follows:

#If VBA7 Then
Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As LongPtr, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, _
ByVal dwReserved As LongPtr) As LongPtr

This works fine. However, I have read that I should be able to add:

#Else
  ...32 bit Declaration...
#End If

This supposedly should direct the compiler to select the correct declaration and proceed. However, the 32 bit declaration is picked up at compile and it will not run. Any insights?
Thank you,
David

 

[DanteAmor]

If you are in 64, it will send you a compilation error and the declaration for 32 will be in red, but don't worry, the correct one will be executed, depending on the computer where you execute it.

#If VBA7 Then
  Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As LongPtr, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, _
    ByVal dwReserved As LongPtr) As LongPtr
#Else
  Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As LongPtr, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, _
    ByVal dwReserved As LongPtr) As LongPtr
#End If

 

[davidam]

You are correct; I was simply being scared off by the red lettering when in fact the code runs fine in spite of it.
Many thanks Dante!!

 

[davidam]

One point about this:
I assume that this should actually look like this:

#If VBA7 Then
  Private Declare PtrSafe Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As LongPtr, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, _
    ByVal dwReserved As LongPtr) As LongPtr
#Else
  Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, _
    ByVal dwReserved As Long) As Long
#End If

ie: in the 32 bit declaration the variable 'Long' is used, rather than 'LongPtr' as in the 64 bit

 

[DanteAmor]

in the 32 bit declaration the variable 'Long' is used, rather than 'LongPtr' as in the 64 bit

The actual data type that LongPtr resolves to depends on the version of Office that it is running in: LongPtr resolves to Long in 32-bit versions of Office, and LongPtr resolves to LongLong in 64-bit versions of Office.

So no need to set to Long

 

[davidam]

Perfect. Thank you!