Sub SelectFile()
    '选择单一文件
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False   '单选择
        .Filters.Clear   '清除文件过滤器
        .Filters.Add "Excel Files", "*.xls;*.xlw"
        .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
        If .Show = -1 Then    'FileDialog 对象的 Show 方法显示对话框，并且返回 -1（如果您按 OK）和 0（如果您按 Cancel）。
            MsgBox "您选择的文件是：" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
        End If
    End With
End Sub

Dim i As Integer
'打开多个文件
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls;*.xlw"
    .Filters.Add "All Files", "*.*"
    .Show
    For i = 1 To .SelectedItems.Count
        MsgBox "The file you select: " & .SelectedItems(i), vbOKOnly + vbInformation, "Excel"
    Next
End With

'打开多个文件，然后复制到一个文件中
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set File_Cb = ActiveWorkbook

With fd
If .Show = -1 Then
    Dim vrtSelectedItem As Variant
    Dim i As Integer
    
    i = 1
    For Each vrtSelectedItem In .SelectedItems
        Dim tempwb As Workbook
        Set tempwb = Workbooks.Open(vrtSelectedItem)
        tempwb.Worksheets(1).Copy Before:=File_Cb.Worksheets(i)
        
        File_Cb.Worksheets(i).Name = Replace(tempwb.Name, ".xls", "")
        tempwb.Close Savechanges:=False
        i = i + 1
    Next vrtSelectedItem
End If
End With
Set fd = Nothing