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

《EXCEL2007多工作簿合并,附详细操作步骤.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&""&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=Workbook

2、s.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=Dir

3、LoopRange("A1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub操作步骤：1、新建一个文件夹，把需要合并的表格都放到新建的文件夹内2、在新建文件夹内新建一个EXCEL表格3、打开新建的EXCEL空表格，按ALT+F11，选择“插入-模块”如图：在模块内复制上面代码，如图：1、点击上面选项“运行”如图：2、运行结果合并前合并后：合并内容