如何在32位或64位Excel VBA上使用Windows SHBrowseforFolder函数

#If VBA7 Then
    Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BrowseInfo) As LongPtr
    Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidList As LongPtr, ByVal lpBuffer As String) As LongPtr
#Else
    Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
#End If

Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Function SelectFolder() As String
    Dim bi As BrowseInfo
    Dim pathBuffer As String
    Dim pidl As LongPtr
    
    ' 设置对话框的属性
    With bi
        .hWndOwner = 0 ' 设置为0表示使用Excel窗口作为父窗口
        .lpszTitle = "请选择文件夹" ' 对话框标题
        .ulFlags = &H1 ' 显示"新建文件夹"按钮
    End With
    
    ' 调用SHBrowseForFolder函数显示对话框
    pidl = SHBrowseForFolder(bi)
    
    ' 获取所选文件夹的路径
    pathBuffer = Space$(MAX_PATH)
    SHGetPathFromIDList pidl, pathBuffer
    
    ' 返回文件夹路径
    SelectFolder = Left$(pathBuffer, InStr(pathBuffer, Chr(0)) - 1)
End Function

Sub TestSelectFolder()
    Dim folderPath As String
    
    folderPath = SelectFolder()
    
    ' 打印所选文件夹路径
    MsgBox folderPath
End Sub