vba excel 文件对话框

VBA中的Excel文件对话框提供了一种交互式方式，允许用户选择要打开的Excel文件。在VBA中，可以使用不同的方法来实现Excel文件对话框。

方法一：

Dim FileName As String
FileName = Application.GetOpenFilename("Excel 文件 ,*.xls;*.xlsx")

方法二：

With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .InitialFileName = "D:\" '打开时默认的目录
    .Filters.Clear
    .Filters.Add "Excel文件", "*.xls;*.xlsx"
    .Title = "请选择文件"
    .Show
    For i = 1 To .SelectedItems.Count
        MsgBox .SelectedItems(i)
    Next
End With