"""> """ />
欢迎来到天天文库
浏览记录
ID:51803377
大小:12.29 KB
页数:1页
时间:2020-03-15
《讲多个excel中指定sheet合并到一个excel.docx》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、Sub合并所有工作簿的第?个工作表到当前工作簿()DimMyFile,MyPath,MyNameMyPath=ThisWorkbook.Path&""MyName=Dir(MyPath&"*.xlsx")DoWhileMyName<>""IfMyName<>"."AndMyName<>".."AndMyName<>ThisWorkbook.NameThenWorkbooks.OpenFilename:=MyPath&MyNamenewname=Application.Substitute(ActiveWorkbo
2、ok.Name,".xlsx","")i=1'工作簿将第1个sheet合并Sheets(i).Copybefore:=ThisWorkbook.Sheets(1)a=newnameActiveSheet.Name=a'新表名称为工作簿名称Workbooks(MyName).Closesavechanges+FalseEndIfMyName=Dir'查找下一个目录。LoopApplication.DisplayAlerts=False'不出现对话框,按对话框默认选择EndSub讲要合并的excel全部放到一个文件夹下
3、,新建一个excel并打开,右键某一sheet,查看代码,讲上方代码全部粘贴进去,点击运营
此文档下载收益归作者所有