将多个电子表格导入1- Excel VBA

Sub ImportMultipleFiles()
    Dim FileDialog As FileDialog
    Dim SelectedFiles As Variant
    Dim CurrentWorkbook As Workbook
    Dim NewWorkbook As Workbook
    Dim File As Variant
    
    '打开文件选择对话框
    Set FileDialog = Application.FileDialog(msoFileDialogOpen)
    FileDialog.AllowMultiSelect = True
    FileDialog.Show
    
    '获取选择的文件
    SelectedFiles = FileDialog.SelectedItems
    
    '创建新的工作簿
    Set CurrentWorkbook = ThisWorkbook
    Set NewWorkbook = Workbooks.Add
    
    '循环导入文件
    For Each File In SelectedFiles
        '打开文件
        Workbooks.Open File
        
        '复制数据到新的工作簿
        ActiveSheet.UsedRange.Copy NewWorkbook.Sheets(1).Cells(NewWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
        
        '关闭文件
        Workbooks(File).Close SaveChanges:=False
    Next File
    
    '保存新的工作簿
    NewWorkbook.SaveAs "导入的电子表格.xlsx"
    
    '关闭新的工作簿
    NewWorkbook.Close SaveChanges:=False
    
    '恢复原来的工作簿
    CurrentWorkbook.Activate
End Sub