如何利用字典将非活动工作表另存为新工作簿？

作者：绿色风分类：时间：2022-08-17 浏览：102

楼主 kevinchengcw	Q: 如何利用字典将非活动工作表另存为新工作簿？ A: 代码如下： Sub test() Dim Dic, Ws As Worksheet Set Dic = CreateObject("scripting.dictionary") '定义字典项目（嘿嘿，又是字典) For Each Ws In Worksheets '循环当前工作簿中的各个工作表 If Ws.Name <> ActiveSheet.Name Then Dic.Add Ws.Name, "" '如果循环到的不是活动工作表，则添加工作表名到字典中 Next Ws Worksheets(Dic.keys).Copy '复制非活动工作表（会生成新的工作簿） ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Date, "yyyymmdd") & "." & Split(ThisWorkbook.Name, ".")(UBound(Split(ThisWorkbook.Name, "."))), ThisWorkbook.FileFormat '将新生成的工作簿保存为日期加本工作簿扩展名的格式及工作簿格式 ActiveWorkbook.Close '关闭活动工作簿 Set Dic = Nothing '清空字典项目 End Sub
2楼 rongjun	学习K版代码
3楼芐雨	好贴

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表