合并EXCEL工作簿中表格(sheet)的三种情况教程及代码.docxVIP

一、操作方法 将所有要合并的工作簿存放到同目录下，在同目录下新建“汇总工作簿.xls”,打开后，按Alt+F11进入代码编辑界面,点击插入-模块，将代码复制粘贴进去，点击运行。 二、将多个工作簿的所有工作表(sheet)复制到一个工作簿内,代码： Sub CombineFiles() Dim path As String Dim FileName As String Dim LastCell As Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String Dim MyDir As String MyDir = ThisWorkbook.path \ ChDrive Left(MyDir, 1) find all the excel files ChDir MyDir Match = Dir$() ThisWB = ThisWorkbook.Name Application.EnableEvents = False Application.ScreenUpdating = False