【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《EXCEL中VBA另存工作表时不保存宏代码》，欢迎阅读！
呵呵，很多时候用VBA跑完报表另存时不想保存宏代码。网上查了好多方法太复杂，效果也一般。经过多次尝试发现sheets(array())原来可以实现，确实很简单。拿来和大家分享。。。。
---------------------------------------------------------------------
mydate = Year(Date) * 10000 + Month(Date) * 100 + Day(Date) '时间函数取年月日如20121221
Application.DisplayAlerts = False '关闭提示信息
Application.ScreenUpdating = False '关闭屏幕显示
'------------------下面这句是重点------------------------------
Sheets(Array("sheet1_中文名", "sheet2_中文名", "sheet3_中文名")).Copy
'--------------------------------------------------------------
ActiveWorkbook.SaveAs Filename:="D:\四月FN\XXX业务报表_" & mydate & "_快照 .xls "
ActiveWindow.Close
Application.DisplayAlerts = False
Application.ScreenUpdating = False
'Application.Workbooks.Close ‘关闭excel中全部工作表
------------------------------------------------------------------------
技术交流QQ: 1036486150
2023-05-07
