【VBA】すべてのエクセルファイルを上書き保存して閉じる

For Each…Nextで繰り返し処理する

複数のエクセルファイルにデータの書き込みなどをした後、まとめて上書き保存・閉じる場合は、For Each…Nextですべてのエクセルファイルを１つずつ処理していきます。

'処理対象のエクセルファイル

Dim targetExcelFile As Workbook

'開いているエクセルファイルを、繰り返し処理で１つずつ処理する

For Each targetExcelFile In Workbooks

'処理対象のエクセルファイル名と、VBAのファイル名を比較し、違う時のみ処理を行う

If targetExcelFile.Name <> ThisWorkbook.Name Then

'ファイルを上書き保存

targetExcelFile.Save

'ファイルを閉じる

targetExcelFile.Close

End If

VBAが記述されているエクセルファイル自体が途中で閉じられると、そこで処理が終了してしまいます。

そのため、VBAが記述されているエクセル以外を、「上書き保存」→「閉じる」と１つずつ繰り返し処理しています。

POINT

VBAのエクセルファイル名は、ThisWorkbook.Nameで調べることができます。

ループ処理が終わった後(Nextの後)に、VBAのファイルを閉じるプログラムを書きます。

'VBAのファイルは最後に閉じる

ThisWorkbook.Close

ただし、この書き方だとエクセルのアプリケーションが残ってしまうので、実際は次の「エクセル自体を終了する」が実用的です。

ループ処理が終わった後(Nextの後)に、Excel自体を終了するプログラムを書きます。

'Excel自体を終了する

Application.Quit

VBAのエクセルファイルも保存する必要がある場合は、Application.Quitの直前にThisWorkbook.Saveを書きます。

注意すること

すべてのエクセルファイルを閉じる場合、VBAが書かれているエクセルファイルは最後に閉じましょう。