另存为VBA Excel

我正尝试使用Now（）函数自动保存具有特定文件名称的文档，然后是昨天的date。

每次我运行代码时，我都会碰到“编译错误：预期：列表分隔符”或“），我似乎不能sorting的问题。

'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函数来执行此操作。

你也有一个缺less&在你的串联string和一个失踪,分开参数。

 '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