如何将多个Ecel工作簿合并成一个新的工作簿.docx

有多个独立的excel 工作簿文件需要合并到一个新的工作簿中，保留原来 excel 工作簿中各个 excel 工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有 100 多份excel 文件要合并到一个excel 工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel 工作簿文件放置在一个文件夹中。2、在该文件夹中，新建立一个新的excel 工作簿文件。 1、将需要合并的excel 工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel 工作簿文件。 3、打开新建立的 excel 工作簿文件，将鼠标移动到下方工作表名称 sheet1 上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub 合并工作薄() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler = False FilesToOpen = _ (FileFilter:=MicroSoft Excel 文件(*.xls), *.xls, _ MultiSelect:=True, Title:=要合并的文件) If TypeName(FilesToOpen) = Boolean Then MsgBox 没有选中文件 GoTo ExitHandler End If x = 1 While x = UBound(FilesToOpen) Filename:=FilesToOpen(x) Sheets().Move After:= Wend ExitHandler: x = x + 1 = True Exit Sub ErrHandler: MsgBox Resume ExitHandler End Sub 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel 工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel 工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。