Макро с сохранением Текущая дата

Question

Есть ли способ сделать макрос для сохранения файла с текущим днем ​​в имени. Я хочу сохранить это каждый день с правильной датой.

Это то, что я как макрос, довольно простой, но у меня возникли проблемы с получением текущей формулы даты в имени файла (если это возможно)

Sub Save() 
    ActiveWorkbook.SaveAs Filename:="X:\file06-21-2012\.xlsm", FileFormat _ 
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

Так что завтра я хотел бы Марко в сохраните его как файл06-22-2012.

Thanks

Answer 1

Нравится?

Sub Save() 
    Dim FilePath As String 
    Dim NewName As String 

    FilePath = "X:\": NewName = FilePath & "file" & Format(Date, "MM-DD-YYYY") & ".xlsm" 

    ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _ 
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
End Sub 

Answer 2

С уважением к отвечу @ HeadofCatering, я думаю, более простой и понятный подход будет таким.

Sub Save() 

Dim dtDate As Date 
dtDate = Date 

Dim strFile As String 
strFile = "X:\file" & Format(dtDate, "mm-dd-yyyy") & ".xlsm" 

ActiveWorkbook.SaveAs Filename:=strFile, FileFormat _ 
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 

End Sub