欢迎来到天天文库
浏览记录
ID:52892188
大小:14.02 KB
页数:1页
时间:2020-03-31
《EXCEL合并工作表宏代码.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、SubCombineWorkbooks()DimFilesToOpenDimxAsIntegerOnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpen=Application.GetOpenFilename(FileFilter:="MicroSoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="要合并的文件")IfTypeName(FilesToOpen)="Boolean"thenMsgBox"没有选中文件"GotoExitHandlerend
2、ifx=1Whilex<=UBound(filestoopen)Workbooks.OpenfileName:=filestoopen(x)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)x=x+1WendExitHandler:Application.ScreenUpdating=TrueExitSubErrHandler:MsgBoxErr.DescriptionResumeExitHandlerEndSub
此文档下载收益归作者所有