100个电子表合并成一个电子表Word文档下载推荐.doc
- 文档编号:15278704
- 上传时间:2022-10-29
- 格式:DOC
- 页数:2
- 大小:27KB
100个电子表合并成一个电子表Word文档下载推荐.doc
《100个电子表合并成一个电子表Word文档下载推荐.doc》由会员分享,可在线阅读,更多相关《100个电子表合并成一个电子表Word文档下载推荐.doc(2页珍藏版)》请在冰豆网上搜索。
Sub合并当前目录下所有工作簿的全部工作表()
DimMyPath,MyName,AWbName
DimWbAsWorkbook,WbNAsString
DimGAsLong
DimNumAsLong
DimBOXAsString
Application.ScreenUpdating=False
MyPath=ActiveWorkbook.Path
MyName=Dir(MyPath&
"
\"
&
*.xls"
)
AWbName=ActiveWorkbook.Name
Num=0
DoWhileMyName<
>
"
IfMyName<
AWbNameThen
SetWb=Workbooks.Open(MyPath&
MyName)
Num=Num+1
WithWorkbooks
(1).ActiveSheet
.Cells(.Range("
B65536"
).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)
ForG=1ToSheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("
).End(xlUp).Row+1,1)
Next
WbN=WbN&
Chr(13)&
Wb.Name
Wb.CloseFalse
EndWith
EndIf
MyName=Dir
Loop
Range("
B1"
).Select
Application.ScreenUpdating=True
MsgBox"
共合并了"
Num&
个工作薄下的全部工作表。
如下:
WbN,vbInformation,"
提示"
EndSub
4、运行之后,等待10秒针左右,等运行完毕,就是合并完成之后,会有提示,点确定就可以了。
查看合并后的数据,有5000多行,就是同一个文件夹里面N个excel表数据合并后的结果。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 100 电子表 合并 一个