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