需要为具有datefunction和名称的文件进行自定义保存

我试图写一个代码，将保存我的工作表的标题为“EMM POS打破TD 最后一个营业日 ….所以例如今天，我将需要它保存为”EMM POS打破TD 10.01.15“…我发现一些在线代码，它正确保存和datefunction工作，但它不是保存工作簿作为一个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 

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