vba - 現在の日付を保存するマクロ

Question

名前に現在の日付を含むファイルを保存するマクロを作成する方法はありますか。これを正しい日付で毎日保存したい。

これは私がマクロとして持っているもので、非常に単純ですが、ファイル名に現在の日付式を取得する際に問題があります (可能な場合)

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

明日、マルコにファイル06-22-2012として保存してもらいたいと思います。

ありがとう

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