この記事では、Excel VBAを活用して、差分バックアップを実施する方法について詳しく説明します。初心者向けに、具体的なコード例とその解説、応用例を含めて取り上げます。
Excel VBAの基本
Excel VBA(Visual Basic for Applications)は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
![](https://ittrip.xyz/wp-content/uploads/2023/09/VBA-1.gif)
差分バックアップとは
差分バックアップは、前回のフルバックアップ以降の変更されたデータだけをバックアップする方法です。この手法により、データ量を削減し、バックアップ時間を短縮することができます。
Excel VBAを活用した差分バックアップの手順
基本的なコード
Sub DifferentialBackup()
Dim OriginalFile As String
Dim BackupFile As String
Dim LastBackupDate As Date
'元のファイルとバックアップファイルのパス
OriginalFile = "C:\path\to\original.xlsx"
BackupFile = "C:\path\to\backup.xlsx"
'前回のバックアップ日時を取得
LastBackupDate = FileDateTime(BackupFile)
'元のファイルの最終更新日時が前回のバックアップ以降であれば、バックアップを実施
If FileDateTime(OriginalFile) > LastBackupDate Then
FileCopy OriginalFile, BackupFile
End If
End Sub
このコードは、元のファイルの最終更新日時を確認し、前回のバックアップ以降であれば新たなバックアップを実施します。
応用例1: 複数のファイルを差分バックアップ
Sub MultiFileDifferentialBackup()
Dim FilesToBackup(1 To 3) As String
Dim BackupDestinations(1 To 3) As String
Dim i As Integer
'バックアップ対象のファイル
FilesToBackup(1) = "C:\path\to\original1.xlsx"
FilesToBackup(2) = "C:\path\to\original2.xlsx"
FilesToBackup(3) = "C:\path\to\original3.xlsx"
'バックアップ先
BackupDestinations(1) = "C:\path\to\backup1.xlsx"
BackupDestinations(2) = "C:\path\to\backup2.xlsx"
BackupDestinations(3) = "C:\path\to\backup3.xlsx"
For i = 1 To 3
If FileDateTime(FilesToBackup(i)) > FileDateTime(BackupDestinations(i)) Then
FileCopy FilesToBackup(i), BackupDestinations(i)
End If
Next i
End Sub
応用例2: フォルダ単位での差分バックアップ
補足: この例では、Folder1内のすべてのExcelファイルをFolder2にバックアップします。
Sub FolderDifferentialBackup()
Dim OriginalFolder As String
Dim BackupFolder As String
Dim FileInFolder As String
OriginalFolder = "C:\path\to\Folder1\"
BackupFolder = "C:\path\to\Folder2\"
FileInFolder = Dir(OriginalFolder & "*.xlsx")
Do While FileInFolder <> ""
If FileDateTime(OriginalFolder & FileInFolder) > FileDateTime(BackupFolder & FileInFolder) Then
FileCopy OriginalFolder & FileInFolder, BackupFolder & FileInFolder
End If
FileInFolder = Dir
Loop
End Sub
応用例3: バックアップのロギング
補足: バックアップを実施する度にログをExcelのシートに追記する方法。
Sub BackupWithLogging()
Dim OriginalFile As String
Dim BackupFile As String
Dim LastBackupDate As Date
Dim ws As Worksheet
'ロギング用のシートを設定
Set ws = ThisWorkbook.Sheets("Log")
OriginalFile = "C:\path\to\original.xlsx"
BackupFile = "C:\path\to\backup.xlsx"
LastBackupDate = FileDateTime(BackupFile)
If FileDateTime(OriginalFile) > LastBackupDate Then
FileCopy OriginalFile, BackupFile
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Date & " " & Time & ": Backup Successful for " & OriginalFile
End If
End Sub
まとめ
Excel VBAを使用することで、差分バックアップの自動化が容易になります。上記の基本的な手法と応用例を組み合わせることで、さまざまなシチュエーションに適応するバックアップスクリプトを作成することができます。データの安全性を保つために、定期的なバックアップを習慣化しましょう。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門:ETLツールを使ってエクセルデータを簡単に整形・統合しよう!(1/11)
-
【実践ガイド】パワークエリでデータ収集:Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう!(2/11)
-
【総力特集】パワークエリで列操作をマスター:選択、変更、移動、削除、結合、分割の詳細解説&実践テクニック!(3/11)
-
【徹底解説】パワークエリで行操作をマスター!フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法(6/11)
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター!便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう!(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント