EXCEL2007多工作簿合并,附详细操作步骤

Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&\&*.xls)AWbName=ActiveWorkbook.NameNum=0DoWhileMyNameIfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath&\&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range(A65536).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range(A65536).End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange(A1).SelectApplication.ScreenUpdating=TrueMsgBox共合并了&Num&个工作薄下的全部工作表。如下：&Chr(13)&WbN,vbInformation,提示EndSub操作步骤：1、新建一个文件夹，把需要合并的表格都放到新建的文件夹内2、在新建文件夹内新建一个EXCEL表格3、打开新建的EXCEL空表格，按ALT+F11，选择“插入-模块”如图：在模块内复制上面代码，如图：4、点击上面选项“运行”如图：5、运行结果合并前合并后：合并内容