Sub SelectFolder()
    Dim Path As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = -1 Then
        'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果按 OK）和 0（如果按 Cancel）
            Path = .SelectedItems(1)
            MsgBox "您选择的文件夹是：" & Path, vbOKOnly + vbInformation, "智能Excel"	
            '获取到的Path长这个样子："D:\VBA\Report\Format"，Format就是我选中的文件夹的名字
        End If
    End With
End Sub
                    Sub SelectFolder()    Dim Path As String    With Application.FileDialog(msoFileDialogFolderPicker)        If .Show = -1 Then        'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果按 OK）和 0（如果按 Cancel）    ...
    Dim strFolder As String
    '差异：msoFileDialogFilePicker
    With Application.FileDialog(msoFileDialogFilePicker)
        '文件对话框的题目，根据个人情况进行设定
        .Title = "Select F...
    '定义并新建一个对话框对象
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogFolderPicker)
    '如果当前没有对话框显示，就让他弹出对话框
    If dlgOpen.Show = -1 Then ChooseFolder = dlgOpen.Sel
				
Function 选择文件夹(Optional Title As String = "选择一个文件夹") As Variant
    With Application.FileDialog(msoFileDialogFolderPicker) '4
        .Title = Title
        .InitialFileName = Environ("userprofile") &
使用 FileDialog 属性返回一个 FileDialog 对象。FileDialog 属性位于每个单独 Office 应用程序的 Application 对象中。该属性使用一个参数
DialogType确定该属性返回的 FileDialo...
				
在 ACCESS 的 VBA 中，可以使用 FileDialog 对象的 Show 方法来打开文件对话框，并使用 SelectedItems 属性来获取选中文件的路径。
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Show
If fd.SelectedItems.Count = 1...
				
Excel 打开对话框，获取文件夹路径
'Window「参照」ダイアログで選択したItem 名を取得
Public Function GetFolderName(ByVal DialogType As MsoFileDialogType) As String
    With Application.FileDialog(DialogType)
        If .Show = True T
下面代码可以弹出文件框，让用户选中文件，其中 strFile 为选中后的地址文件名，取消或关闭文件框均为退出程序。
'弹窗选择文件
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False   '单选择
    .Filters.Clear   '清除文件过滤器
    .Title = "请选择文件"
    .InitialFileName = ""
    .Filt
Sub SelectFolder()
    Dim FolderPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            FolderPath = .SelectedItems(1)
        End If
    End With
    MsgBox "You selected " & FolderPath
End Sub
在这个代码中，我们使用了 `Application.FileDialog` 方法来创建一个文件夹选择对话框。我们设置了对话框的标题为 "Select a Folder"，允许用户选择单个文件夹，并在对话框关闭后将所选文件夹路径存储在 `FolderPath` 变量中。最后，我们使用 `MsgBox` 函数显示所选文件夹路径。
你可以将这段代码复制到你的 VBA 工程中，然后在需要调用该功能的地方调用 `SelectFolder` 子函数即可。