excel - 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

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

我要做的只是拥有它，以便在运行宏时，文件名为“备份”，位置为 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