另存为VBA Excel

Question

I am trying to auto-save a document with a specific file name followed by yesterdays date using the Now() function.

Every time I run the code I am hit with "Compile error: Expected: list separator or )" and I cant seem to sort the issue.

'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

The issue always seems to be surrounding the -1 within the code which should be going back by a day for the file name.

Thanks in advance

Answer 1

In fact, the error is that the – you used is not the minus sign - but the UNICODE character EN DASH .

---

Another approach would be to use the DateAdd function to do so.

You also have a missing & in your concatenation string and a missing , to separate parameters.

'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