将启用宏的工作簿另存为"；“文件名”+；使用VBA的当前日期

我试图找出是否可以编写VBA以将我打开的文件保存为“文件名”（在本例中为“PO_取消问题-”）+当前日期？因此，今天它将保存为“采购订单取消问题-02192018”。我可以使用任何保存mmddyyyy的日期格式

---

谢谢。

以下内容如何：

Sub foo()
'FileExtStr = ".xlsb": FileFormatNum = 50
'FileExtStr = ".xlsx": FileFormatNum = 51
'FileExtStr = ".xlsm": FileFormatNum = 52
'FileExtStr = ".csv": FileFormatNum = 6
'FileExtStr = ".txt": FileFormatNum = -4158
'FileExtStr = ".prn": FileFormatNum = 36

FileFormatNum = 51
TempFilePath = Application.DefaultFilePath & "\"
Filename = "PO_Cancellation_Issues - "
TempFileName = Filename & " " & Format(Now, "mmddyyyy")

    With ThisWorkbook
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        .Close SaveChanges:=False
    End With
End Sub

---

格式（日期，“mmddyyyy”）

是。这是可能的。我建议你花点时间在谷歌上搜索你在互联网上很容易找到的代码。一旦你有了代码，如果你需要帮助，你可以回到这里，根据你的特殊需要定制它。