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

阅读：53次时间：2019-04-20 09:06:09来源：用户

最佳经验

由作者撰写原创经验并推荐置顶

excel作为我们常见的办公工具，如何将多个excel文件合并到一个excel的多个sheet接下来让小编教大家一种常见的办法，以下内容是由微蓝经验网用户发布将多个excel文件合并到一个excel的多个sheet，希望对于用户有一定帮助，为朋友进行解决疑惑，如若想了解更多相关内容，可以向底部移动了解更多与本教程文章相关解决经验方法！

工具与材料

电脑，excel

步骤与方法

1
将需要合并的工作表移动到一个新建文件夹中
技巧处理意思区别方法过程效果经验意义原理用途做法攻略常识使用用法详解注意事项步骤图解含义窍门妙招。
2
点开一个新建的exce工作表
3
单击工作表下方的sheet,d单击鼠标右键，点击“查看代码”
4
在弹出来的提示框中单击“插入”，在下拉菜单列表里选择“模板”
5
在编辑栏中输入以下代码
功能：把多个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
6
单击上面的“运行”，在下拉菜单列表里选择“运行子过程/用户窗体”
7
选取需要插入的文件表，单击确定按钮
8
这样就可以将多个excel文件合并到一个excel的多个sheet了