[英]Saveas Filename with future date
I am trying to save my workbook with a date that is 28 days from today. 我正在尝试将工作簿保存为从今天起28天的日期。 Here's my code:
这是我的代码:
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
I am getting error 'Method 'SaveAs' of Object '_Workbook' failed. 我收到对象'_Workbook'的错误'方法'SaveAs'失败。 Any help and explanation of the solution is appreciated.
任何帮助和解决方案的解释表示赞赏。
Thanks Joe 谢谢乔
Your strNewDate
is in the format dd/mm/yyyy and you can't have '/' characters in a filename. 您的
strNewDate
格式为dd / mm / yyyy,文件名中不能包含“ /”字符。
Try using something like strNewDate = Format(DateAdd("D", 28, Now()), "yyyyMMdd")
尝试使用类似
strNewDate = Format(DateAdd("D", 28, Now()), "yyyyMMdd")
strNewDate = DateAdd("D", 28, strDate)
produces a date with /
delimiters which you use a part of the file name and which would point to a non-existent directory. strNewDate = DateAdd("D", 28, strDate)
产生一个带有/
分隔符的日期,您可以使用文件名的一部分,并且该日期将指向不存在的目录。
Instead; 代替;
strNewDate = Format$(DateAdd("D", 28, Now), "dd-mm-yyyy")
strFileName = "SCNI_Exceptions_" & strNewDate
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.