Excel 需要为带有日期函数和名称的文件执行自定义另存为

我正在尝试编写一个代码，将我的工作表保存为标题“EMM POS Breaks TD last BUSSING day…”例如，今天我需要它保存为“EMM POS Breaks TD 10.01.15”" ... 我在网上找到了一些代码，代码保存正确，日期功能正常，但没有将工作簿保存为excel文件。谁能告诉我我能做什么？谢谢

'x = Weekday(Today, vbSunday)
'Select Case x
'    Case 1
'        x = 2
'    Case 2
'        x = 3
'    Case Else
'    x = 1
'End Select
'ActiveWorkbook.SaveAs Filename:="EMM Position Breaks TD " & _
'    Format(Date - x, "mm.dd.yyyy") & " ", FileFormat:=xlNormal, Password:="", _
'    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

---

要将文件另存为*.xlsx，需要将

文件格式

指定为

xlOpenXMLWorkbook

：

---

至于扩展名，您可以按照注释中的建议添加它：

Filename:=“EMM Position Breaks TD”&Format（Date-x，“mm.dd.yyyy”）&.xlsx“

要将文件另存为*.xlsx，您需要将

FileFormat

表示为

openxmlworkbook

：

---

至于扩展名，您可以按照注释中的建议添加它：

Filename:=“EMM Position Breaks TD”&Format（Date-x，“mm.dd.yyyy”）&.xlsx“

别忘了在您的名字后面添加.xlsx尾部。斯科特，谢谢您这么快回来，伙计。。。。这听起来可能很愚蠢，但我到底要把.xlsx放在哪里？在这种

格式（日期-x，“mm.dd.yyyy”）和“

之后，请将

&.xlsx”

放在逗号之前。别忘了在你的名字后面加上.xlsx结尾。斯科特，谢谢你这么快回来，伙计。。。。这听起来可能很愚蠢，但我到底要把.xlsx放在哪里？在这种

格式（日期-x，“mm.dd.yyyy”）和“

之后，将

&.xlsx”

放在逗号之前。如果需要另存为XLSM，请使用

xlOpenXMLWorkbookMacroEnabled

（保留所有宏，如果有的话）。有关如何指定文件夹的详细信息，请参阅？它位于我的桌面上，名为CRR。不知道怎么走这条路…@abiedermann你终于解决了吗？似乎需要将文件夹添加到文件名中，

Filename:=“EMM Position Breaks TD”

Filename:=fldr&“EMM Position Breaks TD”如果需要另存为XLSM，请使用

xlOpenXMLWorkbookMacroEnabled

（保留所有宏，如果有的话）。有关如何指定文件夹的详细信息，请参阅？它位于我的桌面上，名为CRR。不知道怎么走这条路…@abiedermann你终于解决了吗？看起来您需要将文件夹添加到文件名中，

Filename:=“EMM Position Breaks TD”

=>

Filename:=fldr&“EMM Position Breaks TD”

x = Weekday(Today, vbSunday)
Select Case x
    Case 1
        x = 2
    Case 2
        x = 3
    Case Else
    x = 1
End Select
ActiveWorkbook.SaveAs Filename:="EMM Position Breaks TD " & _
    Format(Date - x, "mm.dd.yyyy") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, Password:="", _
    WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False