Question

我正在尝试使用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，该代码应该在一天内返回文件名。

提前致谢

Answer 1

事实上，错误在于您使用的–不是减号-，而是UNICODE字符EN DASH。

另一种方法是使用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:=False

保存为VBA Excel

1 个答案: