Getting code to work in 64 Bit Excel

[Gborden800]

Hi All, I have the following bit of code that I need to modify to run on both 32 and 64 bit versions of Excel.
Is the If-Then-Else statement okay (addition of PtrSafe and LongPtr are correct)?

Do I also need to put the BROWSEINFO declaration inside the If-Then-Else statement with Longptr types for the 64 bit version and Long types for the 32 bit version?

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' modBrowseFolder
' This contains the BrowseFolder function, which displays the standard Windows Browse For Folder
' dialog. It returns the complete path of the selected folder or vbNullString if the user cancelled.
' It also contains the function BrowseFolderExplorer which presents the user with a Windows
' Explorer-like interface to pick the folder.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const BIF_RETURNONLYFSDIRS As Long = &H1
Private Const BIF_DONTGOBELOWDOMAIN As Long = &H2
Private Const BIF_RETURNFSANCESTORS As Long = &H8
Private Const BIF_BROWSEFORCOMPUTER As Long = &H1000
Private Const BIF_BROWSEFORPRINTER As Long = &H2000
Private Const BIF_BROWSEINCLUDEFILES As Long = &H4000


Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszINSTRUCTIONS As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type

#If VBA7 Then
    Private Declare PtrSafe Function SHGetPathFromIDListA Lib "shell32.dll" (ByVal pidl As LongPtr, _
        ByVal pszBuffer As String) As Long

    Private Declare PtrSafe Function SHBrowseForFolderA Lib "shell32.dll" (lpBrowseInfo As _
        BROWSEINFO) As Long
#Else
    Private Declare Function SHGetPathFromIDListA Lib "shell32.dll" (ByVal pidl As Long, _
        ByVal pszBuffer As String) As Long

    Private Declare Function SHBrowseForFolderA Lib "shell32.dll" (lpBrowseInfo As _
        BROWSEINFO) As Long
#End If

 

[rlv01]

I found this article to be helpful.

Windows API declarations in VBA for 64-bit

How to convert your API Declarations to 64-bit. - Common myths debunked, key factors explained!

codekabinett.com

 

[Jeffrey Mahoney]

Compared to similar declarations, it seems you have it right. I don't think you need to put the TYPE inside the #IF

 

[Colin Legg]

The article linked by rlv01 is great. You'll need conditional compilation on BROWSEINFO since 4 of those fields need to be LongPtr types in 64-bit. Jan Karel Pieterse has a fantastic web site page with examples of these particular API and Type declarations:

Declaring API functions for 64 bit Office (and Mac Office)

 

[Gborden800]

The article linked by rlv01 is great. You'll need conditional compilation on BROWSEINFO since 4 of those fields need to be LongPtr types in 64-bit. Jan Karel Pieterse has a fantastic web site page with examples of these particular API and Type declarations:

Declaring API functions for 64 bit Office (and Mac Office)

Okay, makes sense. I will add the conditional compilation on BROWSEINFO and see if that works. Thanks!

 

[Gborden800]

It works. I had to put the BROWSEINFO structure inside the IF statement. Thanks everybody!