如果需要对指定的文件夹进行操作,可以调用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< |