Dim FilePath With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '能否复选 .Filters.Clear .Filters.Add "Log Files", "*.txt;*.log" .Filters.Add "All Files", "*.*" If .Show = -1 Then '-1:OK 0:Cancel FilePath = .SelectedItems(1) '所选文件路径 MsgBox "Selected file is:" & FilePath, vbOKOnly + vbInformation, "MyExcel" End If End With
对话框类型有下面4中属性
msoFileDialogFilePicker '选择文件 msoFileDialogFolderPicker '选择一个文件夹 msoFileDialogOpen '用Excel打开文件 msoFileDialogSaveAs '保存一个文件