多个Excel表合并形成一个Excel中的多sheet工作簿

多个Excel表合并形成一个Excel中的多sheet工作簿(2013-03-2111:05:24)转载▼分类：excel使用技巧新建一个excel表（把所有表最终要导入的表）。在该表中按ALT+F11打开宏，插入------模块在打开的窗口中输入：SubCombineWorkbooks()DimFilesToOpenDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename_(FileFilter:=MicroSoftExcel文件(*.xls),*.xls,_MultiSelect:=True,Title:=要合并的文件)IfTypeName(FilesToOpen)=BooleanThenMsgBox没有选中文件GoToExitHandlerEndIfx=1Whilex=UBound(FilesToOpen)Workbooks.OpenFilename:=FilesToOpen(x)Sheets().Moveafter:=ThisWorkbook.Sheets_(ThisWorkbook.Sheets.Count)x=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub按F5运行宏。