☰

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

関連情報