将 .xlsm 另存为 xlsx 到单元格中定义的目标 + 添加日期

Question

小问题，我正在尝试保存一个文件，目标位置在单元格 A1 中定义（因为该文件可以位于不同的服务器上，具体取决于用户），加上保存日期。你能帮帮我吗？我目前拥有的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

将 .xlsm 另存为 xlsx 到单元格中定义的目标 + 添加日期

Save .xlsm as xlsx to destination defined in cell + add date

vba

excel

xlsx

xlsm