VBA毎月1日にバックアップファイルを作成

以下は、Excel VBAを使用して毎月1日に自動でバックアップファイルを作成するためのマクロの例です。

ーーーーーーーーーーーーーーーーーー

Sub CreateBackupFile()
Dim backupFilePath As String
Dim originalFilePath As String
Dim backupFileName As String
Dim today As Date

' バックアップ先のファイルパスを指定
backupFilePath = "C:\Backup\"

' 元のファイルのファイルパスを指定
originalFilePath = "C:\MyExcelFile.xlsx"

' バックアップファイル名を作成
today = Date
backupFileName = "Backup_" & Year(today) & "-" & Format(Month(today), "00") & ".xlsx"

' バックアップファイルを作成
FileCopy originalFilePath, backupFilePath & backupFileName
End Sub

ーーーーーーーーーーーーーーーーーー
このマクロを実行すると、指定されたバックアップ先のフォルダに、元のファイルの名前に年月を付けたファイル名でバックアップファイルが作成されます。

毎月1日に自動で実行するには、Windowsのタスクスケジューラを使用することができます。以下の手順に従って、タスクスケジューラにこのマクロを登録してください。

Windowsの「スタートメニュー」から「タスクスケジューラ」を選択します。
「タスクの作成」をクリックします。
「一般」タブで、タスク名を入力し、必要に応じて説明を入力します。
「トリガー」タブで、「新規」をクリックします。
「開始時間」で、毎月1日を指定します。
「操作」で、「このプログラムを開始」を選択し、先程作成したマクロファイルを指定します。
「設定」タブで、必要に応じて実行優先度などの設定を行います。
「OK」をクリックして登録を完了します。
これで、毎月1日に自動でバックアップファイルが作成されるようになります。