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在一個問題回答的編輯搬進了社區維基答案見Question with no answers, but issue solved in the comments (or extended in chat)）

的OP寫道：

這裏是我得到了什麼工作。

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