如何在Excel VBA控制台中使用对话框而不是手动输入来设置文件夹路径

Sub SetFolderPath()
    Dim fso As Scripting.FileSystemObject
    Dim dialog As FileDialog
    Dim selectedFolder As String
    
    ' 创建FileSystemObject对象
    Set fso = New Scripting.FileSystemObject
    
    ' 创建FileDialog对象
    Set dialog = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' 显示对话框并获取选择的文件夹路径
    If dialog.Show = -1 Then
        selectedFolder = dialog.SelectedItems(1)
    Else
        ' 用户取消选择时的处理逻辑
        MsgBox "用户取消选择文件夹路径"
        Exit Sub
    End If
    
    ' 在控制台中输出选择的文件夹路径
    Debug.Print "选择的文件夹路径为：" & selectedFolder
    
    ' 可以在这里进行后续操作，例如处理选择的文件夹中的文件
    
    ' 释放对象资源
    Set fso = Nothing
    Set dialog = Nothing
End Sub