別のブックから数値を参照したりなと、ブックを経由する場合はよく使用する機能です。
しかし、使用方法を誤るとエラーが発生し、閉じることができません。

そこで今回はブックを閉じる際に発生するエラーに対しての原因と対処法を紹介します。
それでは見ていきましょう。

⬛︎通常のブックの閉じ方

まず、エラー対応の前に通常のブックを閉じる方法を説明します。
構文は以下の通りです。

Workbooks("ここに閉じたいブック名を記入").Close

とてもシンプルですね。

では見本で「見本.xlsx」というブックを閉じるプログラムを見ていきましょう。
前提として対象のブックが開いてあることが条件となります。

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

Sub ブックを閉じる()

Workbooks(“見本.xlsx“).Close

End Sub

こちらのプログラムで「見本.xlsx」のブックを閉じることができました。
結論としてブックを閉じる際に使用する「Close」はブック名で指示します。
これが原因でエラーが生じる場合もあります。
では、ブックを「close」で閉じる際のエラーの原因と対処法を見ていきましょう。

⬛︎closeのエラーの原因と対処法

・「実行時エラー’9′:インデックスが有効範囲にありません」について

こちらはブック名で指定していない可能性があります。
よくある原因としてはフルパスでファイルを開いて、そのフルパスを活用して「close」
することでエラーが生じてしまいます。

ではプログラムの例を見ていきましょう。
今回は「見本」ブックを開いて、処理を行い、閉じるプログラムです。

Sub ブックを閉じる()

Dim FilePath As String

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

Workbooks(FilePath).Close

End Sub

一見問題無さそうですが実行したらこのようになります。

「実行時エラー’9′:インデックスが有効範囲にありません」というエラーが発生しました。

原因としてブックを開く際の参照と閉じる際の参照の違いに問題があります。
ブックを開く際の「Open」はフルパスでなければなりませんが
ブックを閉じる際の「close」はファイル名でなければなりません。

しかし、パスが繰り返し動作やセルに入力してあるパスを参照する際には
プログラムにファイル名は入力できませんよね。

ファイル名が限定される方は次の項目に飛んでください。

使用するのは「Dir」になります。
機能としてはフルパスからファイル名を取得することができます。

では構文を見ていきましょう。

ファイル名＝Dir(フルパス)

ではこちらを活用したプログラムはこのようになります。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)
Workbooks(CloseFileName).Close

End Sub

それでは実行してみましょう。
「CloseFileName = Dir(FilePath)」の部分の変数「CloseFileName」にファイル名が
格納できているか見てみましょう。

「C:\excel\見本.xlsx」のフルパスからファイル名のみを抽出できています。

これでファイル名で「close」するのでエラーが出なくなります。

また、「close」で設定したファイル名が合っていなくても同様のエラーとなります。

例えば閉じたいブック名に半角のスペースが入っただけでも
エラーになってしまいます。

正確なファイル名で「close」の指示ができるようにプログラムを作成してください。

・プログラムが途中で停止、実行中のブックが閉じる

こちらは実行中のプロシージャ（プログラム)のブックを閉じると
起こるエラーとなっています。

例えば、「ファイル A」というファイルからVBAを使用して
「ファイルB」というファイルを閉じようとします。

しかし誤って「ファイルA」を閉じるように設定すると
プログラムを実行中のファイルAが閉じてしまうため
プログラムが途中で停止してしまう問題が発生します。

なので閉じるファイル名が正確か確認してみてください。

⬛︎補足　ブックを閉じる際の確認画面を表示させない方法

ここからは補足になります。
編集したブックを「close」で閉じる指令を実行すると「’対象ファイル名’の変更内容を保存じますか？」というメッセージがでます。

「Workbooks(ファイル名).Save」で１度保存した場合は問題ありませんが、保存しない場合は処理しないといけません。

しかし何度もブックを閉じるプログラムだと毎回確認ボタンを押さないといけないので面倒くさいですよね。
そこでブックを閉じる前に「Application.DisplayAlerts = False」を実行することで、確認動作をスルーすることができます。
ブックを閉じた後は「Application.DisplayAlerts = True」で再度、確認メッセージが出るように設定することをオススメします。

では先ほどのプログラムに織り込んでみましょう。

Sub ブックを閉じる()

Dim FilePath As String, CloseFileName

FilePath = “C:\excel\見本.xlsx”

Workbooks.Open FilePath

‘ここに処理プログラム

CloseFileName = Dir(FilePath)

Application.DisplayAlerts = False
Workbooks(CloseFileName).Close
Application.DisplayAlerts = True

End Sub

これで「’対象ファイル名’の変更内容を保存じますか？」の確認メッセージをスルーすることが出来ます。

⬛︎まとめ

いかがだったでしょうか。
ブックを経由してデータを取得したり入力したりする際に用いられる
「close」ですが、使用方法を間違えるとエラーが生じてしまいます。

ぜひ今回の記事を参考にして
エラーが出ないようなプログラムを作成してみてください。

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

ブックを閉じる機能に「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」を活用して
対象ブックが閉じてあるか確認する内容でした。

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

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