将.xlsm保存为xlsx，以单元格+添加date中定义的目标

快速的问题，我试图保存一个文件，在单元格A1中定义的目的地（因为该文件可以位于不同的服务器上，这取决于用户），加上它的保存date。 你能帮我吗？ 我目前拥有的VBA如下：

Sub Macro2() 'turn off pop-ups Application.DisplayAlerts = False Range("A15").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ Range("a1") & "CSI_ERE_1" & Today() & ".xlsx" _ , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True End Sub 

Answer 1

从XLSM保存到XLSX时，我已经省略了FileFormat 。

尝试：

ActiveWorkbook.SaveAs Filename:= Range("A1").Value & "CSI_ERE_1" & Format(Date(), "dd.mm.yy") & ".xlsx"

如果这不起作用：

ActiveWorkbook.SaveAs Filename:= Range("A1").Value & "CSI_ERE_1" & Format(Date(), "dd.mm.yy") & ".xlsx", FileFormat:=51

使用数字文件格式具有更好的向后兼容性，出于某种原因我不知道，似乎比名称常量更容易使用。

文件格式列表及其数值： https ： //msdn.microsoft.com/en-us/library/office/ff198017.aspx