《多个Excel表合并形成一个Excel中的多sheet工作簿》由会员分享,可在线阅读,更多相关《多个Excel表合并形成一个Excel中的多sheet工作簿(2页珍藏版)》请在金锄头文库上搜索。
1、多个Excel表合并形成一个Excel中的多sheet工作簿(2013-03-21 11:05:24)转载分类:excel使用技巧新建一个excel表(把所有表最终要导入的表)。在该表中按ALT+F11打开宏,插入-模块在打开的窗口中输入:Sub CombineWorkbooks()Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application.GetOpenFilename _(FileFilter:=MicroSoft Exc
2、el文件(*.xls),*.xls, _MultiSelect:=True, Title:=要合并的文件)If TypeName(FilesToOpen) = Boolean ThenMsgBox 没有选中文件GoTo ExitHandlerEnd Ifx = 1While x = UBound(FilesToOpen)Workbooks.Open Filename:=FilesToOpen(x)Sheets().Move after:=ThisWorkbook.Sheets _(ThisWorkbook.Sheets.Count)x = x + 1WendExitHandler:Application.ScreenUpdating = TrueExit SubErrHandler:MsgBox Err.DescriptionResume ExitHandlerEnd Sub按F5运行宏。