如何将多个excel工作簿合并成一个新的工作簿

《如何将多个excel工作簿合并成一个新的工作簿》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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

2、ub合并工作薄()　　DimFilesToOpen　　DimxAsInteger　　OnErrorGoToErrHandler　　Application.ScreenUpdating=False　　FilesToOpen=Application.GetOpenFilename_　　(FileFilter:="MicroSoftExcel文件(*.xls),*.xls",_　　MultiSelect:=True,Title:="要合并的文件")　　IfTypeName(FilesToOpen)="Boolean"Then　　MsgBox"没有选中文件"　　GoToExitHandler　　End

3、If　　x=1　　Whilex<=UBound(FilesToOpen)　　Workbooks.OpenFilename:=FilesToOpen(x)　　Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)　　x=x+1　　Wend　　ExitHandler:　　Application.ScreenUpdating=True　　ExitSub　　ErrHandler:　　MsgBoxErr.Description　　ResumeExitHandlerEndSub6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输

4、入窗口。打开excel工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。