使用相同名稱創建文件的副本+使用宏的日期

Question

我想將工作簿保存在具有相同名稱+當前日期的其他位置。

我想和我能夠在其他位置，但不同的名稱中使用複製文件：

Sub Backup() 
ActiveWorkbook.SaveCopyAs "C:\Users\mani\Desktop\reference_files\AutoGenerated.xlsx" 
End Sub 

我沒有得到如何保持文件名相同，通過增加當前日期到它現有的一個。

例如，文件名是abc.xlsx話，我想這個文件在"C:\Users\mani\Desktop\reference_files\"保存名稱abc_26May2017.xlsx

請幫助。

Answer 1

您可以使用其FullName屬性獲取當前工作簿名稱（包括路徑），並且可以使用Format函數格式化日期。

Sub Backup() 
    With ActiveWorkbook 
     .SaveCopyAs Left(.FullName, InstrRev(.FullName, ".") - 1) & _ 
        "_" & Format(Date(), "ddmmmyyyy") & ".xlsx" 
    End With 
End Sub 

---

如果需要使用不同的路徑，您可以使用該工作簿的Name屬性：

Sub Backup() 
    With ActiveWorkbook 
     .SaveCopyAs "C:\Users\mani\Desktop\reference_files\" & _ 
        Left(.Name, InstrRev(.Name, ".") - 1) & _ 
        "_" & Format(Date(), "ddmmmyyyy") & ".xlsx" 
    End With 
End Sub 

Answer 2

這個人是有點簡單。

Sub Backup() 
ActiveWorkbook.SaveCopyAs "C:\Users\mani\Desktop\reference_files\AutoGenerated" & Format(Date, "MMM-DD") & ".xlsx" 
End Sub