vba - 保存当前日期的宏

Question

有没有办法制作一个宏来保存名称中包含当前日期的文件。我想每天用正确的日期保存它。

这是我作为宏所拥有的，非常简单，但是在文件名中获取当前日期公式时遇到问题（如果可能）

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

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