保存没有macros的Excel工作簿的副本

我有一个包含以下代码的macros的Excel 2010模板文件：

ActiveWorkbook.SaveAs Filename:= _ newname, FileFormat:= _ 51, CreateBackup:=False 

这将当前工作簿保存为一个非macros启用的工作簿，但我显然不能运行我需要的其余macros。

我试图使用

  ActiveWorkbook.SaveCopyAs Filename:= _ newname, FileFormat:= _ 51, CreateBackup:=False 

这会产生语法错误。 我的目标是用新名称保存副本，所以模板文件保持不变，并且可以每天运行。

Answer 1

尝试这个：

  Dim wMacro As Workbook 'workbook you want to save wMacro.Sheets(Array("all sheets name")).Select wMacro.Sheets(Array("all sheets name")).Copy ActiveWorkbook.SaveAs Filename:= "filename.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

它会创build一个副本并保存。