另存為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