保存没有宏的excel工作簿的副本

Question

我有一个带有宏的Excel 2010模板文件，其中包含以下代码：

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

这会将当前工作簿保存为非启用宏的工作簿，但显然我无法运行我需要的其余宏。

我尝试使用

    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

它将创建一个副本并保存。