1、如何将多个 Excel 工作簿合并成一个新的工作簿有多个独立的 excel 工作簿文件需要合并到一个新的工作簿中，保留原来 excel 工作簿中各个 excel 工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有 100 多份excel 文件要合并到一个 excel 工作簿，这样就需要用批量处理多个工作簿的合并（ PS：不是工作表） 。1、将需要合并的 excel 工作簿文件放置在一个文件夹中。2、在该文件夹中，新建立一个新的 excel 工作簿文件。3、打开新建立的 excel 工作簿文件，将鼠标移动到下方工作表名称 sheet1 上右键，选择查看代码。4、在弹出的代码编辑窗口中
2、，输入代码。5、在代码窗口中，粘贴下列代码：Sub 合并工作薄()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 “没
3、有选中文件“GoTo ExitHandlerEnd Ifx = 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 工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。
