☰

VBA - 根據日期建立並儲存到資料夾

tag-icon • tag-icon microsoft-excel vba
VBA - 根據日期建立並儲存到資料夾

我需要做一些看似簡單的事情，但我很難弄清楚如何實施。

我需要使用今天的日期來建立一個資料夾。那部分很好。然後我需要使用文字和今天的日期來保存文件（也可以）。

讓我困惑的是我需要將新文件保存到新資料夾中。如何讓文件既以今天的日期保存，又以今天的日期保存到新資料夾中？ （如果檔案路徑不變，我可以這樣做，但是當部分路徑根據日期變化時，我不知道該怎麼做）

這是我嘗試過的，但它不起作用。我收到以下錯誤：1004：應用程式定義或物件定義的錯誤。

Sub filesave()

ActiveWorkbook.SaveAs ("S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx")

End Sub

這是創建資料夾的程式碼（完美運行）：

Sub FolderCreate()

MkDir "S:\HR\TM\" & Format(Now(), "dd.mm.yyyy")

End Sub

請注意，為了安全起見，檔案路徑/目錄已被稍微修改/簡化。

答案1

只是一個猜測：

fname = "S:\HR\TM\" & Format(Now(),"dd.mm.yyyy") & "\SOX recon " & Format(Now(), "dd.mm.yyyy") & ".xlsx"
MsgBox fname
ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlOpenXMLWorkbook

相關內容