搜档网
当前位置:搜档网 › EXCEL中VBA另存工作表时不保存宏代码

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


相关主题