如何将多个Excel工作簿合并成一个新的工作簿.pdfVIP

如何将多个Excel工作簿合并成一个新的工作簿 有多个独立的 excel 工作簿文件需要合并到一个新的工作簿中，保留原来excel 工 作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。 若有100多份excel文件要合并到一个excel工作簿，这样就需要用批量处理多个工 作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键， 选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub合并工作薄() DimFilesToOpen DimxAsInteger OnErrorGoToErrHandler Application.ScreenUpdating=False FilesToOpen=Application.GetOpenFilename_ (FileFilter:=MicroSoftExcel文件(*.xls),*.xls,_ MultiSelect:=True,Title:=要合并的文件) IfTypeName(FilesToOpen)=BooleanThen MsgBox没有选中文件 GoToExitHandler EndI x=1 Whilex=UBound(FilesToOpen) Workbooks.OpenFilename:=FilesToOpen(x) x=x+1 Wend ExitHandler: Application.ScreenUpdating=True ExitSub ErrHandler: MsgBoxErr.Description ResumeExitHandler EndSub 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿， 可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。