《如何将多个Excel工作簿合并成一个新的工作簿.doc》由会员分享，可在线阅读，更多相关《如何将多个Excel工作簿合并成一个新的工作簿.doc（2页珍藏版）》请在三一办公上搜索。
1、如何将多个Excel工作簿合并成一个新的工作簿有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。1、将需要合并的excel工作簿文件放置在一个文件夹中。2、在该文件夹中，新建立一个新的excel工作簿文件。3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。4、在弹出的代码编辑窗口中，输入代码。5、在代码窗口中，粘贴下列代码：S
2、ub 合并工作薄()Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application.GetOpenFilename _(FileFilter:=MicroSoft Excel文件(*.xls), *.xls, _MultiSelect:=True, Title:=要合并的文件)If TypeName(FilesToOpen) = Boolean ThenMsgBox 没有选中文件GoTo ExitHandlerEnd Ifx =
3、1While x = UBound(FilesToOpen)Workbooks.Open Filename:=FilesToOpen(x)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)x = x + 1WendExitHandler:Application.ScreenUpdating = TrueExit SubErrHandler:MsgBox Err.DescriptionResume ExitHandlerEnd Sub6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。
