【マクロVBA】ブックを開いているか確認し、開いていなければ開く（Open)開いてあればアクティブに ► 独学エクセル塾 (dokugakuexcel.com)

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

もちろん、対象のファイルがたくさんあった場合にも対応可能です。

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

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

・対象の文字を含むブック名のブックが開いているか確認し、開いていなければ開くことができる

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

「ここにフォルダのパスを入力する」と「ここに指定文字を入力」の

個所をお好みで打ち換えてください。

結果として指定フォルダ内の指定文字を開いているか確認し、開いていなければ開きます。

Sub 指定ファイルを開いているか確認し､開く()

Dim OpenBook As Workbook, Flag As Boolean
Dim Filename As String, Foldername As String, Searchname As String

Foldername = “ここにフォルダのパスを入力する“
Searchname = “ここに指定文字を入力“

Filename = Dir(Foldername & “*” & Searchname & “*”)
Do While Filename <> “”
Flag = False

For Each OpenBook In Workbooks

If OpenBook.Name = Filename Then
Flag = True
End If

Next

If Flag = False Then
Workbooks.Open Foldername & “\” & Filename
End If

Filename = Dir

Loop

End Sub

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

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

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:\検証ファイル\ブックA.xlsx”
End If

End Sub

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

ちなみにブックを開く際は「フルパス」で開かないといけません。
フルパスの表示方法については下記の記事をご参照ください。

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

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

⬛︎文字の一部を含むブックが開いてあるか確認して、開いていなければ開く

では本題に入ります。
内容としては対象の文字を含むファイルに対し、現在開いてあるブックを照らし合わせて
開いているか確認し、開いてなければ開くといった内容となってます。

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

こちらの効果としてすべての文字・数値を含む便利な機能です。

さらに使用する機能は「Dir」になります。
こちらは指定フォルダにどのようなファイルがあるか検出できます。
詳しくは下記記事にまとめていますのでご覧ください。

【マクロVBA】Dir関数で指定フォルダから対象ファイル・ブックが存在するか確認、処理する！一覧も可 ► 独学エクセル塾 (dokugakuexcel.com)

では「*」と「Dir」を合わせてみましょう。

変数 = Dir("C:\検証ファイル\*A*")

今回は指定フォルダを「Cドライブの検証ファイル」としています。
こちらに「A」の文字が含まれたファイルがあればファイル名を変数に格納します。

その変数とこれまで紹介したファイル名を比較するプログラムを合わせたプログラムがこちらです。

Flag = False

For Each OpenBook In Workbooks

If OpenBook.Name = 変数 Then
Flag = True
End If

Next

これにより、対象としたい文字が含まれたファイルと開いているファイルを比較して、開いていれば変数「Flag」が「True」となるプログラムとなります。

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

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

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

Dim OpenBook As Workbook, Flag As Boolean, Filename

Filename = Dir(“C:\検証ファイル*A*”)

Do While Filename <> “”
Flag = False

　　For Each OpenBook In Workbooks

　　　If OpenBook.Name = Filename Then
　　　Flag = True
　　　End If

　　Next

　　If Flag = False Then
　　Workbooks.Open “C:\検証ファイル\” & Filename
　　End If

Filename = Dir

Loop

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」がすでに開いているか確認し、開いてなけれな開きます。

まとめとして、「Foldername」 と「Searchname」の個所を入力すれば

機能するプログラムを載せておきます。

「ここにフォルダのパスを入力する」と「ここに指定文字を入力」の

個所をお好みで打ち換えてください。

結果として指定フォルダ内の指定文字を開いているか確認し、開いていなければ開きます。

Sub 指定ファイルを開いているか確認し､開く()

Dim OpenBook As Workbook, Flag As Boolean
Dim Filename As String, Foldername As String, Searchname As String

Foldername = “ここにフォルダのパスを入力する“
Searchname = “ここに指定文字を入力“

Filename = Dir(Foldername & “*” & Searchname & “*”)
Do While Filename <> “”
Flag = False

For Each OpenBook In Workbooks

If OpenBook.Name = Filename Then
Flag = True
End If

Next

If Flag = False Then
Workbooks.Open Foldername & “\” & Filename
End If

Filename = Dir

Loop

End Sub

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

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

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

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

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

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

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

Dim OpenBook As Workbook, Flag As Boolean, Filename

Filename = Dir(“C:\検証ファイル\A*”)
Do While Filename <> “”
Flag = False

For Each OpenBook In Workbooks

If OpenBook.Name = Filename Then
Flag = True
End If

Next

If Flag = False Then
Workbooks.Open “C:\検証ファイル\” & Filename
End If

Filename = Dir

Loop

End Sub

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

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

⬛︎公式の説明

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

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

⬛︎まとめ

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

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

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

【マクロ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

⬛︎まとめ

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

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

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

【置き換え】文字・数値の置換をシート・ブック内で様々な条件で行う ► 独学エクセル塾 (dokugakuexcel.com)

この記事をご覧になられた方は「*（アスタリスク）」を置き換えてもうまくいかなかったのではないでしょうか。

*（アスタリスク）はワイルドカードという効果を持っており、置換にもその効果を発揮します。

そこで今回は*（アスタリスク）を1つの文字として置き換える方法について紹介します。
それでは見ていきましょう。

■ワイルドカードとは

ではまず、*（アスタリスク）の持つワイルドカードという機能について紹介します。
*（アスタリスク）は簡単に説明すると「文字・数値何にでも変化する」機能です。

例えば

「　*　○×△」であれば「○×△で終わるすべての数値・文字」
「○×△　*　」であれば「○×△で始まるすべての数値・文字」
「　*　○×△　*　」であれば「○×△を含むすべての数値・文字」

というイメージです。

さらにイメージしやすいように見本を用意しました。

・「123456789」の「*5をaaaに置き換え」

結果は5を含んだそれ以前の数値をすべてaaaに置き換えています。

・「123456789」の「5*をaaaに置き換え」

結果は5を含んだそれ以降の数値をすべてaaaに置き換えています。

・「123456789」の「*5*をaaaに置き換え」

結果は5を含むすべての数値をaaaに置き換えています。

ワイルドカードの理解はできたでしょうか。
正確に使えばとても便利な置換の手法です。

ちなみに置換に限らずワイルドカードは様々な場面で使用できます。

■*（アスタリスク）の置換で起こる問題点

先ほどは（アスタリスク）のワイルドカードについて紹介しました。 しかし*（アスタリスク）を文字として置き換えたいときには問題が生じます。

下図の見本をご覧ください。

「500*10」の計算をしたいとします。 なので「=500*10」と打ち込みました。

結果は500*10で5000になります。

しかしここで「10」で10をかけていた結果を「/10」で10で割るように変更したいとしましょう。 今回は置換で「*10」から「/10」に変更してみましょう。

置き換えた結果はこのようになります。

「＝500/10」の結果である「50」ではなく「/10」となってしまいました。
こちらの現象として「*10」の（*アスタリスク）がワイルドカードと判定され、
「10を含んだ10以前のすべての文字数値を”/10″に置き換える」といったことになります。

*（アスタリスク）を文字として置き換えたい場合はワイルドカードが厄介ですね。
では対策を見ていきましょう。

■*（アスタリスク）を1つの文字として置き換える

では*（アスタリスク）を文字として置き換えてみます。
使用するのは「～（チルダ）」という記号です。
～（チルダ）はワイルドカードを打ち消す機能があります。

○○から××を　「○○～××」で表す際に使用する記号ですね。

使用方法は簡単です。
*（アスタリスク）の前に「～（チルダ）」を入力するとワイルドカードを打ち消してくれます。

なので先ほどは検索する文字列を「*10」としていましたが「～*10」に変更すればいいです。
では実際の結果を見ていきましょう。

置き換えた結果はこのようになります。

無事ワイルドカードを無視して*（アスタリスク）を文字で置き換えることができました。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

ワイルドカード文字の例 (microsoft.com)

■まとめ

いかがだったでしょうか。
*（アスタリスク）のワイルドカードはとても便利ですが
文字で判別するとなると対応方法を考えなければなりません。

ぜひ今回の記事を参考に*（アスタリスク）とワイルドカードを
うまく活用してみてください。

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