1

快速提问，我正在尝试保存一个在单元格 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
4

1 回答 1

2

FileFormat从 XLSM 保存到 XLSX 时，我省略了很好的结果。

尝试：

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

于 2016-03-11T13:34:22.817 回答