另存为文件名和未来日期

Question

我正在尝试将工作簿保存为从今天起28天的日期。 这是我的代码：

With ActiveWorkbook
     strDate = CDate(Format(Now(), "dd-mm-yyyy"))
     strNewDate = DateAdd("D", 28, strDate)
     strFileName = Format("SCNI_Exceptions_") & strNewDate
     .SaveAs strFileName & ".xlsx", FileFormat:=51
End With

我收到对象'_Workbook'的错误'方法'SaveAs'失败。 任何帮助和解决方案的解释表示赞赏。

谢谢乔

Answer 1

您的strNewDate格式为dd / mm / yyyy，文件名中不能包含“ /”字符。

尝试使用类似strNewDate = Format(DateAdd("D", 28, Now()), "yyyyMMdd")

Answer 2

strNewDate = DateAdd("D", 28, strDate)产生一个带有/分隔符的日期，您可以使用文件名的一部分，并且该日期将指向不存在的目录。

代替;

strNewDate = Format$(DateAdd("D", 28, Now), "dd-mm-yyyy")
strFileName = "SCNI_Exceptions_" & strNewDate