将多个excel文件合并到一个excel的多个sheet 原创

将需要合并的工作表移动到一个新建文件夹中

点开一个新建的exce工作表

单击工作表下方的sheet,d单击鼠标右键，点击“查看代码”

在弹出来的提示框中单击“插入”，在下拉菜单列表里选择“模板”

在编辑栏中输入以下代码

功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称SubBooks2Sheets()   '定义对话框变量   DimfdAsFileDialog   Setfd=Application.FileDialog(msoFileDialogFilePicker)      '新建一个工作簿   DimnewwbAsWorkbook   Setnewwb=Workbooks.Add      Withfd       If.Show=-1Then           '定义单个文件变量           DimvrtSelectedItemAsVariant                      '定义循环变量           DimiAsInteger           i=1                      '开始文件检索           ForEachvrtSelectedItemIn.SelectedItems               '打开被合并工作簿               DimtempwbAsWorkbook               Settempwb=Workbooks.Open(vrtSelectedItem)                              '复制工作表               tempwb.Worksheets(1).CopyBefore:=newwb.Worksheets(i)                              '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文档，假如是Excel2007，需要改成xlsx               newwb.Worksheets(i).Name=VBA.Replace(tempwb.Name,".xls","")                              '关闭被合并工作簿               tempwb.CloseSaveChanges:=False                              i=i+1           NextvrtSelectedItem       EndIf   EndWith      Setfd=NothingEndSub 

单击上面的“运行”，在下拉菜单列表里选择“运行子过程/用户窗体”

选取需要插入的文件表，单击确定按钮

这样就可以将多个excel文件合并到一个excel的多个sheet了