保存不带宏的 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("Sheet1", "Sheet2", "etc")).Select
    wMacro.Sheets(Array("Sheet1", "Sheet2", "etc")).Copy
    ActiveWorkbook.SaveAs Filename:= "filename.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

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