EXCEL-VBA:弹出对话框,打开文件(指定扩展名)

With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "DAT FILE", "*.dat"
    .Show
    For i = 1 To .SelectedItems.Count
        MsgBox .SelectedItems(i)
    Next
End With

你可能感兴趣的:(VBA,OFFICE-EXCEL)