【マクロVBA】ブックを閉じているか確認して、閉じていない場合のみ閉じる（Close)方法 ► 独学エクセル塾 (dokugakuexcel.com)

今回はさらに発展させた内容を紹介します。内容としては指定した文字の一部を含むブックを
開いているか確認して、開いているファイルは閉じるといった処理を行いたいと思います。

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

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

赤文字の指定文字を打ち換えて使用してください。

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
　Flag = False
　　If CloseBook.Name Like "*指定文字*" Then
　　　Flag = True
　　End If
　If Flag = True Then
　　Workbooks(CloseBook.Name).Close
　End If
Next
End Sub

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

・対象の文字を含むブック名のブックが開いているか確認し、開いていれば閉じるできる

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

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “*ここに任意の文字を入力*” Then
Flag = True
End If
If Flag = True Then
Workbooks(CloseBook.Name).Close
End If
Next

End Sub

⬛︎通常のブック名を指定して確認する方法

まず、おさらいとしてブック名が全て判明している場合です。
対象ブックが開いている時に対象ブックを閉じるプログラムをご紹介します。
プログラムは下記の通りです。

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

内容として、「For Each　変数　In Workbooks」で現在開いているブックを変数に繰り返し格納していきます。
そして変数に格納したブックと対象ブック名が等しければ「Flag」が「True」になり
「True」の場合は対象ブックを閉じるといった仕組みです。

今回はこの動作を応用して指定文字の一部でも等しい場合は対象ブックを閉じたいと思います。

⬛︎文字の一部を含むブックが開いてあるか確認して、開いていれば閉じる処理をする

では本題に入ります。
内容としては対象の文字の一部に対し、現在開いてあるブックを照らし合わせて
開いているか確認し、開いてあれば閉じるといった内容となってます。

通常の処理と異なるのは「文字の一部」という面です。
その際に使用する機能は「ワイルドカード」と呼ばれる「✳︎」となります。

では内容を紹介します。
通常では先ほどの「If CloseBook.Name = “ブックA.xlsx” 」のように「＝」で
対象ブックか判別していましたが、今回は「Like」を使用して文字列を比較します。

そして「Like」と「✳︎対象の文字の一部✳︎」を組み合わせて、対象の文字が含まれているか確認しています。
プログラムはこのようになります。

If 変数.Name Like "*対象としたい文字*" Then
Flag = True
End If

これにより、開いているブック名に対象としたい文字が含まれていれば変数「Flag」が「True」となります。

では見本を見ていきましょう。
今回は「A」という文字を含んであるブックを開いているか確認して
開いてある場合は閉じて見てみましょう。

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

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “*A*” Then
Flag = True
End If

If Flag = True Then
Workbooks(CloseBook.Name).Close
End If

Next

End Sub

では実行すればどのようになるか説明します。
たとえば「A-1」「A-2」「A-3」「B-1」「B-2」「B-3」「C-1」「C-2」「C-3」
というブックを開いていたとします。

今回はブック名に「A」がつくブックを閉じるので
「A」を含む「A-1」「A-2」「A-3」のブックを対象とし、閉じるプログラムになります。

⬛︎ワイルドカードの応用方法

これまでは指定の文字を含むブックが開いてあるか確認し、
開いてあればブックを閉じていました。

例えば「A」を含むブックを閉じたければ「✳︎A✳︎」の条件で開いてあるか確認してましたね。
しかし場合によっては「○○○A×××」というファイル名の形式があった場合、○○○の部分は対象から
外したい場合などが存在します。

その場合は「✳︎」の位置を変える必要があります。

先程の例で説明すると「○○○A×××」の「○○○A」までは固定で「×」の部分は全対象としたい場合、
「A✳︎」を条件とします。

プログラムは下記の通りです。

Sub 対象ブックを閉じているか確認して開いてあれば閉じる()

Dim CloseBook As Workbook, Flag As Boolean

For Each CloseBook In Workbooks
Flag = False

If CloseBook.Name Like “A*” Then
Flag = True
End If

If Flag = True Then
Workbooks(CloseBook.Name).Close
End If

Next

End Sub

反対に「○○○A×××」の「A×××」までは固定で「○」の部分を全対象とする場合は
「✳︎A」となります。

「✳︎（ワイルドカード）」については下記記事でまとめてますのでぜひ参考にしてみて下さい。

【*（アスタリスク）の置換】うまくいかない原因と対処法！＊ワイルドカードを無視 ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎公式の説明

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

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

⬛︎まとめ

いかがだったでしょうか。
指定した文字を含むブックを閉じる際にはとても楽になる知識です。

例えば日付でファイル名を管理してファイル開く、閉じるなどの
場合は対象の年月日のシートを閉じるなど、様々なことができます。

是非参考にしてみてください。
それでは次回の記事でお会いしましょう。

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

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

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

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

今回はブック操作の中でもブックを開く・ブックの作成・

ブックの名前の変更・ブックを閉じる操作について、ご紹介します。

ブックをアクティブにする操作に加え、今回の記事を身につけると

ブック関係の操作は網羅できるようになります。

ぜひ参考にしてみてください。

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

■ブックを開く

・ファイル名を直接入力して開く

まず、ブックを開く操作について説明します。

ブックを開く際には下記のようなプログラムになります

Workbooks.Open “ブックのフルパス”

フルパスの表示方法についてはファイルのプロパティからも拾えるのですが
クイックアクセスツールバーに追加しておくと、とても便利です

クイックアクセスツールバーの追加については
「ファイル」→「オプション」→「クイックアクセスツールバー」を選択し
コマンドの選択を「リボンにないコマンド」にします。
そこに「ドキュメントの場所」があるので選択して「追加」をして「OK」で追加されます。

ちなみに見本ブックというものを作成しました。
そちらはCドライブに直接保存したのですがこのようになります。

クイックアクセスツールバーにドキュメントの場所が表示されていますね。
ちなみに見本ブックは「C:\見本ブック.xlsm」のようになっています。

ではこちらをVBAを使用して開いてみましょう。

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

Sub ブックを開く()

Workbooks.Open “C:\見本ブック.xlsm“

End Sub

こちらで見本ブックを開いてくれます。

・変数のブック名を開く

今度はブック名を変数に格納してある状態でブックを開いてみましょう。
プログラムはこのようになります。

Sub 変数のブックを開く()

Dim Bookname As String

Bookname = “C:\見本ブック.xlsm”

Workbooks.Open Bookname

End Sub

これにより変数名のブックを開くことができます。
ファイル1、ファイル2とファイル名の番号が変わって、各ファイルに書き込むときには変数を使用したほうが楽ですね。

■ブックの作成を行う

今度はブックの作成についてです。
こちらはデータの集計結果を別ファイルに作成し、出力するときなどに使えそうですね。

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

Workbooks.Add

これだけです。
一応作成したプログラムを載せておきます。

Sub 新しいブックを作成する()

Workbooks.Add

End Sub

実行すると新しいブックの「Book1」が作成されました。

■ブックに名前を付ける

先ほどばブックを作成しましたが
今度はブックに名前を付けてみましょう。

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

ActiveWorkbook.SaveAs Filename:=”パス+ファイル名+.xlsx“

パスとファイル名は保存したい場所・ファイル名を入力してください。

ちなみに対象は「ActiveWorkbook」にしていますが、変数でも構いません
見本プログラムを下記にのせておきます。

Sub ブックに名前を付けて保存()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.SaveAs Filename:=”パス+ファイル名+.xlsx“

End Sub

xlsmで保存の際のエラーの対応や「txt（テキスト)」「csv」ファイルで保存する際の

記事については下記でまとめてますので是非参考にしてみてください。

【マクロVBAエラー対応】「.xlsm」の拡張子でブックの名前を付けて保存ができない対応方法 ► 独学エクセル塾 (dokugakuexcel.com)

■フォルダに入っているブックを別フォルダに移動させる

では次にエクセルのファイルを
現在入っているフォルダから別のフォルダに移動させましょう。

こちらは移動ととらえるより、先ほど名前を付けたように
パスを書き換えるという方がイメージが付きやすいかもしれません

見本で「C:\見本フォルダ①」のフォルダに「1Book.xlsx」というファイルを作ってみました

こちらを見本フォルダ②に入れてみましょう。
ちなみに見本フォルダ②は現在何も入っていません。

プログラムは下記の通りです。

Name “変更前のパス+ファイル名” As “変更前のパス+ファイル名”

では当てはめていきましょう
“変更前のパス+ファイル名”は「C:\見本フォルダ①\1Book.xlsx」になります。
“変更後のパス+ファイル名”は「C:\見本フォルダ②\1Book.xlsx」になります。
合わせると…

Sub ファイルの位置の変更()

Name “C:\見本フォルダ①\1Book.xlsx” As “C:\見本フォルダ②\1Book.xlsx”

End Sub

このようになります。
では実行してみましょう。

見本フォルダ①の方は…

空になりました。
見本フォルダ②を見てみると…

ファイルが移動したことがわかりますね。
ちなみにブックの移動は通常の動作と同様に指定ファイルは閉じた状態でないと異常が表示されます。

■ブックを保存する

ではブックの保存について見ていきましょう。
保存のプログラムはこのようになります。

Workbooks(“ファイル名“).Save

ここではパスなど入れずにファイル名のみ入れてください。
「Book.xlsx」というファイルがあったとするとプログラムはこのようになります。

Sub ブックの保存()

Workbooks(“Book.xlsx“).Save

End Sub

変数を用いた場合はこちら…

Sub ブックの保存()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.Save

End Sub

■ブックを閉じる

最後のブック操作はブックを閉じるについてです。
ブックを閉じるプログラムはこのようになります。

Workbooks(“ファイル名“).Close

ここでも保存と同様にパスなど入れずにファイル名のみ入れてください。
「Book.xlsx」というファイルがあったとするとプログラムはこのようになります。

Sub ファイルを閉じる()

Workbooks(“Book.xlsx“).Close

End Sub

ちなみに変数を使用したブックを閉じる際は
変数.closeのみで構いません。
見本のプログラムも載せておきます。

Sub ファイルを閉じる()

Dim Bookname As Workbook

Set Bookname = ActiveWorkbook

Bookname.Close

End Sub

⬛︎公式の説明

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

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

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

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

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

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

■まとめ

いかがだったでしょうか。
これでブック操作はマスターできたと思います。

未処理ファイルを開いて処理して処理済みフォルダに格納…
のようなプログラムも組めますね。

ぜひ参考にしてみてください。

次回はシートの操作についてまとめています。記事はこちらから☟

【マクロVBA知識 17】シートを作成・名前を付ける・ブック内/外へコピー・移動・削除する。 ► 独学エクセル塾 (dokugakuexcel.com)

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