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

本文来源：https://www.wddqw.com/doc/9571342a5901020207409cbf.html