Excel VBAを利用した定期的なフルバックアップの自動化手法

この記事では、Excel VBAを使用して、定期的にフルバックアップを実施する方法を詳しく解説します。具体的なコードとその詳細、さらには応用例まで網羅しているので、日々の業務効率化を図るための参考にしてください。

基本的なバックアップのVBAコード

まずは、ExcelファイルをVBAで別の場所にコピーしてバックアップする基本的なコードを紹介します。

Sub FullBackup()
    Dim SourceFile As String
    Dim DestinationFile As String

    SourceFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    DestinationFile = "C:\Backup\" & ThisWorkbook.Name

    FileCopy SourceFile, DestinationFile
End Sub

このコードは、現在のExcelファイルをCドライブのBackupフォルダにコピーします。変数`SourceFile`は現在のファイルのパスを指定し、`DestinationFile`はバックアップ先のフォルダとファイル名を指定します。

応用例

1. 日付を付けてバックアップ

バックアップ時にファイル名に日付を追加することで、過去のバージョンも残すことができます。

Sub FullBackupWithDate()
    Dim SourceFile As String
    Dim DestinationFile As String
    Dim CurrentDate As String

    CurrentDate = Format(Date, "yyyyMMdd")
    SourceFile = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    DestinationFile = "C:\Backup\" & Replace(ThisWorkbook.Name, ".xlsx", "_" & CurrentDate & ".xlsx")

    FileCopy SourceFile, DestinationFile
End Sub

2. 複数のファイルを一度にバックアップ

一度に複数のファイルをバックアップすることも可能です。

Sub MultipleFilesBackup()
    Dim FilesToBackup As Variant
    Dim DestinationFolder As String
    Dim i As Integer

    FilesToBackup = Array("C:\Path\File1.xlsx", "C:\Path\File2.xlsx", "C:\Path\File3.xlsx")
    DestinationFolder = "C:\Backup\"

    For i = LBound(FilesToBackup) To UBound(FilesToBackup)
        FileCopy FilesToBackup(i), DestinationFolder & Dir(FilesToBackup(i))
    Next i
End Sub

3. フォルダごとバックアップ

フォルダ単位でのバックアップも行えます。

Sub FolderBackup()
    Dim SourceFolder As String
    Dim DestinationFolder As String
    Dim FileInFolder As String
    SourceFolder = "C:\PathToFolder\"
    DestinationFolder = "C:\Backup\"
    FileInFolder = Dir(SourceFolder & "*.xlsx")
    Do While FileInFolder <> ""
        FileCopy SourceFolder & FileInFolder, DestinationFolder & FileInFolder
        FileInFolder = Dir
    Loop
End Sub

まとめ

Excel VBAを活用することで、定期的なフルバックアップの自動化が手軽に実現できます。上記の例を参考に、独自のニーズに合わせてカスタマイズしてください。定期的なバックアップは、データロスのリスクを軽減し、業務の安全性と効率性を高める重要な作業です。