VBA 打开文件对话框

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        '保存一个文件

转载于:https://www.cnblogs.com/gamesun/archive/2013/04/28/3050098.html