合并多个EXCEL文件到同一EXCEL文件不同工作表文件

合并多个EXCEL文件到同一EXCEL文件不同工作文件合并多个EXCEL文件到同一EXCEL文件不同工作表文件添加以下宏代码Sub合并多个EXCEL()DimFilesToOpen,ftDimxAsIntegerApplication.ScreenUpdating=FalseOnErrorGoToerrhandlerFilesToOpen=Application.GetOpenFilename_(FileFilter:="MicrsofeExcel文件(*.xls),*.xls",_MultiSelect:=True,Title:="要合并的文件")IfTypeName(FilesToOpen)="boolean"ThenMsgBox"没有选定文件"'GoToerrhandlerEndIfx=1Whilex<=UBound(FilesToOpen)Setwk=Workbooks.Open(Filename:=FilesToOpen(x))wk.Sheets().Moveafter:=ThisWorkbook.Sheets_(ThisWorkbook.Sheets.Count)x=x+1WendMsgBox"合并成功完成～"errhandler:'MsgBoxErr.Description'ResumeerrhandlerEndSub