Excel 2007 VBA可将打开的工作簿另存为备份而无需更改原始文件

Question

我正在尝试修改我在网上找到的代码

Sub SaveCopyas2()
Dim newWB As Variant
Dim wb1 As Workbook, wb2 As Workbook

Set wb1 = ActiveWorkbook
If wb1.Saved = False Then MsgBox wb1.FullName, vbInformation, "Workbook Not Saved"

 'Set a filename for new workbook
newWB = Application.GetSaveAsFilename(ActiveWorkbook.FullName, "Excel Files (*.xls), *.xls", , "Set Filename")
If newWB <> False Then wb1.SaveCopyAs (newWB)
End Sub

它的作用是允许用户运行宏并通过指定位置和名称来保存备份

我正在尝试做的就是拥有它，以便在运行宏时，文件名为“ Backup”，位置为C：\\

有人可以帮助我修复此代码以完成我想要做的事情吗？

Answer 1

（由OP在问题编辑中回答。移至社区Wiki答案。请参阅无答案的问题，但问题已在注释中解决（或扩展为聊天） ）

OP写道：

这是我要工作的。

Sub SaveCopyas2()
Dim newWB As Variant
Dim wb1 As Workbook
Set wb1 = ActiveWorkbook
With wb1
    .SaveCopyAs ("C:\Backup.xlsm")
End With
End Sub