欢迎来到天天文库
浏览记录
ID:8968515
大小:230.18 KB
页数:3页
时间:2018-04-13
《excel2007多工作簿合并附详细操作步骤》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库。
1、Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&""&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyNa
2、me<>AWbNameThenSetWb=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)Next
3、WbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"EndSub操作步骤:1、新建一个文件夹,把需要合并的表格都放到新建的文件夹内2、在新建文件夹内新建一个EXCEL表格3、打开新建的EXCEL空表格,按A
4、LT+F11,选择“插入-模块”如图:在模块内复制上面代码,如图:1、点击上面选项“运行”如图:2、运行结果合并前合并后:合并内容
此文档下载收益归作者所有