欢迎来到天天文库
浏览记录
ID:55951966
大小:25.50 KB
页数:2页
时间:2020-06-18
《EXCEL合并多个工作薄中的相同指定工作表到另一个工作薄中.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、EXCEL合并多个工作薄中的相同指定工作表到另一个工作薄中文件夹下有600多个工作薄,每个工作薄中有工作表20多个,每个工作薄中都有一个工作表标签为"明细"的工作表,需要将名称为"明细"的指定工作表的数据,汇集罗列到另外一个工作薄的"汇总表"中,如何写vba代码?最佳答案Sub合并选定工作簿的第一个工作表()'功能:合并某文件下所有Excel工作簿中的第一个工作表'使用:将要合并的工作簿拷贝到某文件夹下,新建一个工作簿后执行该宏DimWBNameAsString'汇总工作簿名称DimWBCurrentAsString'当前正在合并的工作簿DimiAsIntegerDimFileToOpe
2、nAsVariant'选定的文件列表'显示选择文件对话框,使用Ctrl或Shief键选取多个工作簿FileToOpen=Application_.GetOpenFilename("ExcelFiles(*.xls),*.xls",,"请选择要合并的工作簿",,True)'如果没有选择文件则退出IfIsArray(FileToOpen)=0ThenMsgBox"没有选择文件"ExitSubEndIf'不显示合并的过程Application.ScreenUpdating=FalseWBName=ActiveWorkbook.Name'逐个合并工作簿Fori=1ToUBound(FileToO
3、pen)'打开一个工作簿Workbooks.OpenFilename:=FileToOpen(i)WBCurrent=ActiveWorkbook.Name'将该工作簿复制到汇总工作簿Sheets("明细").CopyBefore:=Workbooks(WBName).Sheets(1)'将去掉".xls"后缀的工作簿文件名作为工作表名称,ActiveSheet.Name=Left(WBCurrent,Len(WBCurrent)-4)'合并后关闭该工作簿Workbooks(WBCurrent).CloseNextiApplication.ScreenUpdating=TrueEndSu
4、b
此文档下载收益归作者所有