概要
Excel VBAを用いた業務自動化において、「ブックを開く」処理と並んで極めて重要なのが「ブックを閉じる」処理です。しかし、単に「Workbooks(“book.xlsx”).Close」と書くだけでは、実務で遭遇する「保存確認のダイアログ」や「意図しない変更の保存」といった壁を乗り越えることはできません。本記事では、VBAにおけるCloseメソッドの挙動を深く掘り下げ、エラーハンドリングを含めた堅牢なブック終了処理の実装方法を徹底的に解説します。業務効率化を目指すエンジニアが必ず押さえておくべき、プロの技術を伝授します。
詳細解説
VBAでブックを閉じる際に使用する「Closeメソッド」には、主に2つの引数が存在します。これらを理解しているかどうかで、コードの信頼性が大きく変わります。
まず、第一引数の「SaveChanges」です。これは、ブックを閉じる際に変更を保存するかどうかを決定するブール値（True/False）です。これを省略すると、Excelはユーザーにダイアログを表示して確認を求めます。自動化ツールにとって、ダイアログの表示は「処理の停止」を意味します。したがって、無人実行が前提のVBAでは、必ずこの引数を明示的に指定する必要があります。
次に、第二引数の「FileName」です。これは、「SaveChanges」をTrueにした場合のみ有効で、別名で保存したい場合に指定します。通常、上書き保存で良い場合は省略可能ですが、ログファイルのように保存先を動的に変更したい場合には極めて有用です。
しかし、実務で最も恐ろしいのは、閉じようとしているブックが「読み取り専用」であったり、「他のプロセスによってロックされている」場合に発生する実行時エラーです。また、そもそも閉じようとしているブックが既に閉じられている場合や、存在しない場合のエラー処理も考慮しなければなりません。プロの現場では、「閉じる」という単純な動作一つに対しても、対象のオブジェクトが存在するかどうかのチェック（イグジストチェック）を怠りません。
サンプルコード
以下に、実務でそのまま利用可能な、安全性を考慮したブッククローズの汎用プロシージャを紹介します。
Sub SafeCloseWorkbook(ByVal TargetBookName As String, ByVal SaveChanges As Boolean)
' 対象のブックがワークブックコレクションに存在するか確認
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks(TargetBookName)
On Error GoTo 0
' ブックが存在しない場合は終了
If wb Is Nothing Then
Debug.Print "対象のブックは開かれていません: " & TargetBookName
Exit Sub
End If
' 読み取り専用チェックや保存処理を考慮したクローズ処理
On Error GoTo ErrorHandler
' 画面更新を停止して高速化
Application.ScreenUpdating = False
' 変更を保存するかどうかを引数で制御して閉じる
wb.Close SaveChanges:=SaveChanges
Application.ScreenUpdating = True
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox "ブックの終了中にエラーが発生しました: " & Err.Description, vbCritical
End Sub
' 呼び出し例：
' サンプルブックを保存せずに閉じる場合
' Call SafeCloseWorkbook("SampleData.xlsx", False)
' サンプルブックを保存して閉じる場合
' Call SafeCloseWorkbook("SampleData.xlsx", True)
実務アドバイス
実務における「ブックを閉じる」際のアドバイスとして、以下の3点を意識してください。
1. **DisplayAlertsの活用**
CloseメソッドでSaveChangesを指定する以外にも、Application.DisplayAlerts = False を設定することで、警告ダイアログを強制的に非表示にすることが可能です。しかし、これは諸刃の剣です。設定を戻し忘れると、ユーザーがExcelを閉じる際にも警告が出なくなるため、必ずエラーハンドリング内で「Finally」的な処理として戻すようにしてください。
2. **オブジェクト変数の解放**
ブックを閉じた後、そのブックを参照していたオブジェクト変数（Workbook型）は「Nothing」に設定することを推奨します。これを怠ると、メモリ上に幽霊のように参照が残り、予期せぬ不具合の原因となることがあります。
3. **保存確認の「その先」**
もし「もし変更があれば保存し、なければ保存せずに閉じる」という動作を自動化したい場合は、Workbooks(wb).Saved プロパティを確認してください。SavedプロパティがFalseであれば変更があるため、その場合にのみSaveChangesをTrueにするというロジックを組むことで、無駄なファイル更新を防ぐことができます。これはバージョン管理システムや、共有フォルダ上のファイルを取り扱う際に特に重要となるテクニックです。
まとめ
ブックを閉じるという処理は、VBAにおける「後始末」の要です。単にメソッドを呼ぶだけでなく、対象の存在確認、エラーハンドリング、そしてリソースの解放までをセットで考えることが、プロフェッショナルなVBA開発者への第一歩です。
今回紹介した「SafeCloseWorkbook」の考え方をベースに、自身の環境に合わせてカスタマイズしてみてください。特に、大規模なデータ処理を行う自動化ツールでは、今回解説したような「確実に閉じる」という確実性が、システム全体の安定性を大きく左右します。VBAは「書いて終わり」ではなく「止まらずに完遂させる」ことが最も重要です。ぜひ明日からのコードにこの技術を組み込み、堅牢で美しいマクロを作成してください。皆さんの業務がより一層効率化されることを願っています。
