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

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

由于乔

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

保存文件名以及将来的日期

2 个答案: