预览加载中，请您耐心等待几秒...

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

预览
1/1

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

Sub合并所有工作簿的第？个工作表到当前工作簿()DimMyFileMyPathMyNameMyPath=ThisWorkbook.Path&"\"MyName=Dir(MyPath&"*.xlsx")DoWhileMyName<>""IfMyName<>"."AndMyName<>".."AndMyName<>ThisWorkbook.NameThenWorkbooks.OpenFilename:=MyPath&MyNamenewname=Application.Substitute(ActiveWorkbook.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全部放到一个文件夹下新建一个excel并打开右键某一sheet查看代码讲上方代码全部粘贴进去点击运营内容总结（1）Sub合并所有工作簿的第