需要使用日期函数和名称进行自定义另存为文件

Question

我正在尝试编写一个代码来保存我的工作表，标题为“EMM POS Breaks TD last Business 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

Answer 1

要将文件保存为*.xlsx，您需要将FileFormat 指定为xlOpenXMLWorkbook：

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

至于扩展名，您可以按照 cmets 中的建议附加它：Filename:="EMM Position Breaks TD " & Format(Date - x, "mm.dd.yyyy") & ".xlsx"。