我正在尝试使用Now()函数自动保存一个具有特定文件名的文档,然后是昨天的日期。
每次我运行代码时,都会遇到“编译错误:预期:列表分隔符或)”,而且我似乎无法对问题进行排序。
'Saves file as an xlsx in directory
ActiveWorkbook.SaveAs Filename:= _
"P:\Desktop\Prior Day Journals\Tueday - Friday\Prior Day Journal" _
& Format(Now() –1,“DD-MMM-YYYY”)“.xlsx” _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False问题似乎总是围绕在代码中的-1,它应该返回一天的文件名。
提前感谢
发布于 2016-10-04 16:18:15
实际上,错误在于您使用的–不是减号-,而是UNICODE字符恩达什。
另一种方法是使用DateAdd函数来做到这一点。
连接字符串中还有一个缺少的&,还有一个缺少的,来分离参数。
'Saves file as an xlsx in directory
ActiveWorkbook.SaveAs Filename:= "P:\Desktop\Prior Day Journals\Tueday - Friday\Prior Day Journal" _
& Format(DateAdd("d", -1, Now()),"DD-MMM-YYYY") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=Falsehttps://stackoverflow.com/questions/39857102
复制相似问题