⚡
AutoSaveBackup
自動化現在のブックを自動的にバックアップとして保存します
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： AutoSaveBackup を実行すると、現在のブックが「_backup_YYYYMMDD_HHMMSS」というサフィックス付きで保存されます
💻 VBAコード
' AutoSaveBackup
' -----------------
' Macro Name: AutoSaveBackup
' Description: 現在のブックを自動的にバックアップとして保存します
' Parameters: なし
' Returns: なし
' Usage: AutoSaveBackup を実行すると、現在のブックが「_backup_YYYYMMDD_HHMMSS」というサフィックス付きで保存されます
' -----------------
Sub AutoSaveBackup()
On Error GoTo ErrorHandler
Dim wb As Workbook
Dim backupPath As String
Dim fileName As String
Dim timestamp As String
Set wb = ActiveWorkbook
' タイムスタンプの作成
timestamp = Format(Now, "yyyymmdd_hhmmss")
' ファイル名の作成
fileName = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
backupPath = wb.Path & "\" & fileName & "_backup_" & timestamp & ".xlsm"
' バックアップ保存
wb.SaveCopyAs backupPath
MsgBox "バックアップを作成しました:" & vbCrLf & backupPath, vbInformation, "バックアップ完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub