（Excel）合并多个excel至一个文档多个sheet

把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称

'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets() '定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add

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)
        '复制工作表
        Dim j As Integer
        j = 1
        For Each vrtSheet In tempwb.Sheets
            tempwb.Worksheets(j).Copy After:=newwb.Worksheets(newwb.Worksheets.Count)
            '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件࿰