保存当前日期的宏

Question

有没有办法使用宏来保存名称中当前日期的文件.我想每天用正确的日期保存它.

这是我作为一个宏,非常简单,但我有问题获取文件名中的当前日期公式(如果可能)

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

所以明天我希望marco将其保存为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