ブックを閉じる機能に「Close」という機能があります。
例えばブックを経由して入力・出力する際によく用いられる機能です。

しかし複数のファイルを開いて閉じる処理する場合に、既に閉じてあるブックを再度閉じようとすると
エラーが生じてしまいます。

そこで今回は指定したブックが閉じてあれば、そのままにして
閉じていなければブックを閉じる方法を紹介したいとおもいます。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤文字の対象ブック名を打ち換えて使用してください。

Sub ブックAを閉じているか確認()
Dim CloseBook As Workbook, Flag As Boolean
Flag = False
　
For Each CloseBook In Workbooks
If CloseBook.Name = "対象ブック名.xlsx" Then
Flag = True
End If
Next
　
If Flag = True Then
Workbooks("対象ブック名.xlsx").Close
Else
MsgBox "対象ブックは閉じています"
End If
　
End Sub

⬛︎こんなことができるようになる！

・ブックが閉じてあるか確認して、閉じていなければ閉じることができる
・閉じている場合の処理方法を設定できる

■知っておきたい知識

・ブックを閉じるといったブック操作の基礎的な知識

【マクロVBA知識 16】ブックを開く・作成・名前の変更・フォルダの移動・保存・閉じる ► 独学エクセル塾 (dokugakuexcel.com)

・「If Then」での条件分岐の処理知識

【マクロVBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△)処理パターンの複数化 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎ブックが閉じてあるか確認する

では実際にブックが閉じてあるか確認するプログラムを説明したいと思います。
まずは下図の見本をご覧ください。

「ブックA」というファイルを用意しました。
今回はこの「ブックA」が閉じてあるか確認してみようと思います。

使用する機能は「For Each」の繰り返し動作と「true・False」です。
ではプログラムを見ていきましょう。

Sub ブックAを閉じているか確認()

Dim CloseBook As Workbook, Flag As Boolean

Flag = False

　
For Each CloseBook In Workbooks

If CloseBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

End Sub

では解説です。
「For Each 変数 Workbooks」ですでに開いてあるブックを繰り返し変数に格納します。
見本では変数を「CloseBook」としてますが、可能な文字であれば何でも構いません。

例えば「ブックA」「ブックB」「ブックC」を開いていると初めにブックAを変数に格納して
nextで「ブックB」と続いていきます。

そして全てのブックを変数に格納し終えたら繰り返しを終了します。

この繰り返し動作の中にIfで対象のシートの名前か判断をします。
対象の名前と変数のブック名が等しい場合は変数「Flag」に「true」を格納します。

初めに変数「Flag」には「False」を格納しているので繰り返し変数のブックの中に
対象のブックがなければ「False」のままという仕組みです。
つまり、既にブックが閉じて有れば変数「Flag」は「False」ということになります。

ではこちらを応用して実際の活用法をご覧ください。

⬛︎結果を元に処理方法を設定する

・対象のブックが閉じてなければ対象ブックを閉じる

では実際に活用してみましょう。
早速プログラムを紹介します。

Sub ブックAを閉じているか確認()

Dim CloseBook As Workbook, Flag As Boolean

Flag = False

　
For Each CloseBook In Workbooks

If CloseBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

If Flag = True Then
Workbooks(“ブックA.xlsx”).Close
End If

　

End Sub

では解説に移ります。
対象のブックが閉じてあれば変数「Flag」が「true」というのは先ほどの説明しました。
こちらをさらにIfで条件分岐させます。

見本のプログラムでは変数「True」だと「ブックA」を閉じるようにしています。

これでブックが閉じて有れば何もせずに、閉じてない場合だけ、対象のブックを閉じるプログラムの完成です。

・対象ブックが閉じてあった場合の処理方法を追加

ここからは補足になりますが、「IF」の「Ease」を使用すればブックが閉じてあった時の
処理方法も設定出来ます。

見本で先ほどのプログラムにブックAが閉じてあった場合には「対象ブックは閉じています」
というメッセージボックスを表示するプログラムを作成してみましょう。

結果はこのようになります。

Sub ブックAを閉じているか確認()

Dim CloseBook As Workbook, Flag As Boolean

Flag = False

　
For Each CloseBook In Workbooks

If CloseBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

If Flag = True Then
Workbooks(“ブックA.xlsx”).Close
Else
MsgBox “対象ブックは閉じています”
End If

　

End Sub

これで対象ブックが閉じてなければ対象ブックを開き、閉じてあれば「対象ブックは閉じています」というメッセージボックスを表示させることができます。

今回はメッセージボックスを表示する内容でしたが、用途に合わせて処理方法を追加してみてください。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Workbook.Close メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
内容としては「For Each」の繰り返し動作と「true・False」を活用して
対象ブックが閉じてあるか確認する内容でした。

今回はブックでしたが、シートでも同様の仕組みで確認することができます。
是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

しかし、複数のファイルを開いて処理する場合に既に開いてあるブックを再度開こうとすると、それまでの入力した値が上書きされてしまったりしてしまいます。

そこで今回は指定したブックが開いてあれば、そのブックをアクティブにして
開いていなければブックを開く方法を紹介したいとおもいます。

それでは見ていきましょう。

■忙しい人向けのコピペ用プログラム

赤字の対象ブック名と青文字の対象ファイルパスを打ち換えて使用してください

Sub ブックAを開いているか確認()
Dim OpenBook As Workbook, Flag As Boolean
Flag = False
　
For Each OpenBook In Workbooks
If OpenBook.Name = "対象ブック名.xlsx" Then
Flag = True
End If
Next
　
If Flag = True Then
Workbooks("対象ブック名").Activate
Else
Workbooks.Open "対象ファイルパス\対象ブック名.xlsx"
End If
　
End Sub

⬛︎こんなことができるようになる！

・ブックが開いてあるか確認して、開いていなければ開くことができるようになる。
・開いている場合の処理方法を設定できる

■知っておきたい知識

・ブックを開く・アクティブにするといったブック操作の基礎的な知識

【マクロVBA知識 16】ブックを開く・作成・名前の変更・フォルダの移動・保存・閉じる ► 独学エクセル塾 (dokugakuexcel.com)

・「If Then」での条件分岐の処理知識

【マクロVBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△)処理パターンの複数化 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎ブックが開いてあるか確認する

では実際にブックが開いてあるか説明したいと思います。
まずは下図の見本をご覧ください。

「ブックA」というファイルを用意しました。
今回はこの「ブックA」が開いてあるか確認してみようと思います。

使用する機能は「For Each」の繰り返し動作と「true・False」です。
ではプログラムを見ていきましょう。

Sub ブックAを開いているか確認()

Dim OpenBook As Workbook, Flag As Boolean

Flag = False

　
For Each OpenBook In Workbooks’開いているブックの格納繰り返し

If OpenBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

End Sub

では解説です。
「For Each 変数 Workbooks」で開いてるブックを繰り返し変数に格納します。
見本では変数を「OpenBook」としてますが、可能な文字であれば何でも構いません。

例えば「ブックA」「ブックB」「ブックC」を開いていると初めにブックAを変数に格納して
nextで次の繰り返しになった際には「ブックB」と続いていきます。

そして全てのブックを変数に格納し終えたら繰り返しを終了します。

この繰り返し動作の中にIfで対象のシートの名前か判断をします。
対象の名前と変数のブック名が等しい場合は変数「Flag」に「true」を格納します。

初めに変数「Flag」には「False」を格納しているので繰り返し開いたブックの中に
対象のブックがなければ「False」のままという仕組みです。
つまり、既にブックが開いて有れば変数「Flag」は「true」ということです。

ではこちらを応用して実際の活用法をご覧ください。

⬛︎結果を元に処理方法を設定する

・対象のブックが開いてなければ対象ブックを開く

では実際に活用してみましょう。
早速プログラムを紹介します。

Sub ブックAを開いているか確認()

Dim OpenBook As Workbook, Flag As Boolean

Flag = False

　
For Each OpenBook In Workbooks

If OpenBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

If Flag = False Then
Workbooks.Open “C:\Users\ABC\Desktop\ブックA.xlsx”
End If

　

End Sub

では解説に移ります。
対象のブックが開いてあれば変数「Flag」が「true」というのは先ほどの説明しました。
こちらをさらにIfで条件分岐させます。

見本のプログラムでは変数「Flag」が「False」だと「ブックA」を開くようにしています。

これでブックが開いて有れば何もせずに、開いてない場合だけ、対象のブックを開くプログラムの完成です。

・対象ブックが開いてあった場合の処理方法を追加

ここからは補足になりますが、「IF」の「Ease」を使用すればブックが開いてあった時の処理方法も設定出来ます。

見本で先ほどのプログラムにブックAが開いてあった場合にはそのブックをアクティブにするというプログラムを作成してみましょう。

結果はこのようになります。

Sub ブックAを開いているか確認()

Dim OpenBook As Workbook, Flag As Boolean

Flag = False

　
For Each OpenBook In Workbooks

If OpenBook.Name = “ブックA.xlsx” Then
Flag = True
End If

Next

　

If Flag = True Then
Workbooks(“ブックA”).Activate
Else
Workbooks.Open “C:\Users\ABC\Desktop\ブックA.xlsx”
End If

　

End Sub

これで対象ブックが開いてなければ対象ブックを開き、開いてあれば対象ブックをアクティブにすることができます。
今回はアクティブにする内容でしたが、用途に合わせて処理方法を追加してみてください。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Workbooks.Open メソッド (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
内容としては「For Each」の繰り返し動作と「true・False」を活用して
対象ブックが開いてあるか確認する内容でした。

今回はブックでしたが、シートでも同様の仕組みで確認することができます。
是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

シートのアクティブ方法については別の記事でまとめてますので参考にしてみてください。

別のシートをアクティブにする内容についてはこちら☟

【VBA知識 12】別のシートをアクティブ・選択する方法について ► 独学エクセル塾 (dokugakuexcel.com)

ブックのアクティブ方法はよく使用する機能なので是非参考にしてみてください。

それでは見ていきましょう。

■ブックをアクティブにする仕組み

まずブックをアクティブにする仕組みについて説明します。

対象のブック名でアクティブにする方法
Workbooks("アクティブにしたいブック名").Activate

ブックの順でアクティブにする方法
Workbooks(左から数えてアクティブにしたいブックの番号).Activate

■ブック名を直接プログラムに入力してアクティブにする方法

こちらが1番なじみやすい形です。

ブック名を直接打ち込むプログラムはこのようになります。

Workbooks("アクティブにしたいブック名").Activate

「Workbooks」と.「Activate」の間にシート名を選択するだけです。
その際に「”」で囲うことを忘れないでください。

それでは実践してみましょう。

現在は見本でVBAというファイル名を開いています。

ここで見本で用意した「見本ブック」というファイルをアクティブにしてみましょう。

プログラムはこのようになります。

Sub 指定したブックをアクティブにする()

Workbooks(“見本ブック“).Activate

End Sub

はい、これだけです。
それでは実行してみましょう。

現在は「VBA」というブックを開いているのですが実行すると下図のようになります。

画像では動きがないのでわかりにくいですが「見本ブック」がアクティブになりました。
この状態でセルに文字を入れたりするVBAのプログラムを入れると「見本ブック」のほうで書き込みが実行されます。

■ブックの順番を指定してアクティブにする

今度はブック順を参考にしてアクティブにする方法です。
VBAで数個ファイルを開いて全ブック同じ処理をするときに使えますね。

プログラムの説明についてはこちら

Workbooks(左から数えてアクティブにしたいブックの番号).Activate

こちらも至ってシンプルです。

今回も同じく、VBAというファイル名を開いている状態で
見本で用意した「見本ブック」という2つ目のファイルをアクティブにしてみましょう。

今回は2つ目なのでこのようになります

Workbooks(2).Activate

ではプログラムを打ち込んでみましょう。

Sub 順番にブックをアクティブにする()

Workbooks(2).Activate

End Sub

実行してみると…

2つ目の「見本ブック」がアクティブになりました。

■現在のブック（実行前アクティブだったブック)を記憶してアクティブにする

さらに今回はもう一事例紹介したいと思います。

ブックの移動が増えると実行前のアクティブブックに帰るとき
「Workbooks(“アクティブにしたいブック名”).Activate」で設定していると
ファイル名が変わったらエラーになってしまいます。

例えばですが「VBA1.01」というファイル名にしておいて
改定を加えて「VBA1.02」になったとします。

すると「Workbooks(“アクティブにしたいブック名”).Activate」の方法でプログラムを組んでいた場合すべて
「VBA1.01」から「VBA1.02」に変えなければなりません。

ここで対策として現在開いているブックを変数にセットして
そのファイルに戻りたいときは変数に入っているブック名をアクティブにすれば解決します。

見本プログラムはこのようになります。

Sub 現在のブックを記憶しアクティブにする()

Dim MainBook As Workbook

Set MainBook = ActiveWorkbook

Workbooks(“見本ブック”).Activate

MainBook.Activate

End Sub

これにより現在開いているファイル名を「MainBook」という変数に記録し、
「見本ブック」をアクティブにした後でも
「MainBook.Activate」で初めに開いていたブックがアクティブになります。

この方法だとファイル名が変わっても対応できるようになります。

ちなみに私はこの手法しか使用していません。

⬛︎公式

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

Workbook.Activate メソッド (Excel) | Microsoft Learn

■まとめ

いかがだったでしょうか。
ブック経由で様々な処理ができるようになりましたね。

また各ブックに同じ処理ができるようになるので
同じ仕様ファイルに同じ処理を施す場面ではとても重宝されます。

ぜひ活用してみてください。

では次の記事でお会いしましょう。記事はこちらから☟

【VBA知識 14】文字検索(Find)し、当てはまる行数と列数を変数に格納・検索結果なしエラー対応 ► 独学エクセル塾 (dokugakuexcel.com)