讲多个excel中指定sheet合并到一个excel.docx

《讲多个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，查看代码，讲上方代码全部粘贴进去，点击运营