多个Excel表合并形成一个Excel中的多sheet工作簿说课讲解.doc

《多个Excel表合并形成一个Excel中的多sheet工作簿说课讲解.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、多个Excel表合并形成一个Excel中的多sheet工作簿精品文档多个Excel表合并形成一个Excel中的多sheet工作簿 (2013-03-2111:05:24)转载▼分类： excel使用技巧新建一个excel表（把所有表最终要导入的表）。在该表中按ALT+F11打开宏，插入------à模块在打开的窗口中输入：SubCombineWorkbooks()    DimFilesToOpen    DimxAsInteger     OnErrorGoToErrHandler    Applic

2、ation.ScreenUpdating=False     FilesToOpen=Application.GetOpenFilename_      (FileFilter:="MicroSoftExcel文件(*.xls),*.xls",_      MultiSelect:=True,Title:="要合并的文件")      IfTypeName(FilesToOpen)="Boolean"Then       MsgBox"没有选中文件"       GoToExitHandler    E

3、ndIf     x=1    Whilex<=UBound(FilesToOpen)        Workbooks.OpenFilename:=FilesToOpen(x)        Sheets().Moveafter:=ThisWorkbook.Sheets_        (ThisWorkbook.Sheets.Count)        x=x+1     Wend ExitHandler:    Application.ScreenUpdating=True收集于网络，如有侵权请联

4、系管理员删除精品文档    ExitSub ErrHandler:    MsgBoxErr.Description    ResumeExitHandlerEndSub按F5运行宏。收集于网络，如有侵权请联系管理员删除