この記事では、Excel VBAを使用して定期的なタイムスケジュールでのバックアップの自動化について詳しく解説します。初心者から中級者まで、具体的なコード例、その解説、さらには応用例を含めて紹介します。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
Excel VBAを使ったタイムスケジュールでのバックアップとは？
Excel VBAを使用して、定期的なタイムスケジュールに基づいてExcelファイルのバックアップを自動的に行う方法です。タスクスケジューラを使うことで、指定した時間や条件に基づいてVBAのマクロを実行することができます。
基本コードの紹介
Sub BackupFile()
Dim SourcePath As String
Dim DestPath As String
Dim BackupFolder As String
Dim CurrentTime As String
' ソースファイルのパス
SourcePath = ThisWorkbook.FullName
' バックアップフォルダの指定
BackupFolder = "C:\Backup\"
' 現在の日時を取得
CurrentTime = Format(Now(), "yyyyMMdd_HHmmss")
' デスティネーションのパスを作成
DestPath = BackupFolder & "Backup_" & CurrentTime & ".xlsm"
' ファイルをコピーしてバックアップを作成
FileCopy SourcePath, DestPath
End Sub
コードの詳細解説
1. **BackupFile**: これはサブルーチンの名前で、このマクロを実行すると定義された手順が開始されます。
2. **SourcePath**: 現在のExcelファイルのフルパスを取得します。
3. **BackupFolder**: バックアップを保存するフォルダのパスを指定します。必要に応じて変更してください。
4. **CurrentTime**: 現在の日時を取得し、ファイル名に使用します。これにより、バックアップファイルごとに一意の名前が生成されます。
5. **DestPath**: 保存先のパスを作成します。
6. **FileCopy**: ソースファイルをデスティネーションにコピーします。これが実際のバックアップ操作です。
応用例
1. 特定の曜日だけバックアップする
Sub WeeklyBackup()
If Weekday(Now()) = 2 Then ' 2は月曜日
BackupFile
End If
End Sub
このコードは、今日が月曜日である場合にのみ`BackupFile`マクロを実行します。
2. バックアップの成功/失敗を通知する
Sub BackupWithNotification()
On Error GoTo ErrorHandler
BackupFile
MsgBox "バックアップが完了しました！", vbInformation
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました。", vbCritical
End Sub
エラーが発生した場合、エラーメッセージが表示されます。成功した場合は、成功メッセージが表示されます。
3. 最新の5つのバックアップだけを保存する
この応用例では、最新の5つのバックアップだけを保存し、それを超えると古いバックアップを自動的に削除します。
Sub BackupWithLimit()
Const MaxBackups As Integer = 5
Dim BackupFolder As String
Dim files As Collection
Dim file As Variant
BackupFile
Set files = New Collection
BackupFolder = "C:\Backup\"
file = Dir(BackupFolder & "Backup_*.xlsm")
Do While file <> ""
files.Add file
file = Dir
Loop
For i = 1 To files.Count - MaxBackups
Kill BackupFolder & files(i)
Next i
End Sub
最初に`BackupFile`マクロを実行し、次に古いバックアップを削除します。
まとめ
Excel VBAを利用することで、定期的なタイムスケジュールに基づいてExcelファイルのバックアップを自動化することができます。この記事で紹介した基本のコードや応用例を参考にして、あなたのニーズに合わせたカスタマイズを行ってください。
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)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント