另存为VBA Excel

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