ExcelVBA 获取用户选择的文件夹名

如果需要对指定的文件夹进行操作，可以调用Excel内置的【文件夹选取器】对话框，对话框的返回值是用户选中的文件夹名，示例代码如下。

Sub SelectFolder()
     Dim objDialog As FileDialog'定义变量
     Set objDialog = Application.FileDialog(msoFileDialogFolderPicker)
     With objDialog
         .Title = "浏览文件夹"'修改对话框标题，默认值是“浏览”
         If .Show = -1 Then
             For Each vrtSelectedItem In .SelectedItems
                 MsgBox "The path is: " & vrtSelectedItem
             Next vrtSelectedItem
         Else
         End If
     End With
     Set objDialog = Nothing
 End Sub

第3行代码使用Application对象的FileDialog属性返回【文件夹选取器】对话框，并赋值给变量objDialog。

FileDialog属性返回FileDialog对象，代表文件对话框，参数fileDialogType是用来确定返回的FileDialog对象类型的MsoFileDialogType常量。MsoFileDialogType常量值和说明如下表所示。

名称	值	说明
msoFileDialogFilePicker	3<