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

⬛︎まとめ

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

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

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

ファイル・ブックを移動させたい場合、
「Name」の機能を使用すれば、保存先のフォルダに変更・移動させることができます。

たとえば、csvファイルが順次、指定フォルダに入ってきて処理する際に
読み取ったデータを過去データとして保管したい場合などには便利です。

さらにブック名の名前の変更も可能です。

是非、内容を参考にしてファイル・ブックの保存先のフォルダに変更・移動させてみてください。
それではみていきましょう。

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

・ファイル・ブックの保存先のフォルダを変更・移動させることができる
・読み込んだファイル・ブックを移動させることができる

⬛︎忙しい人向けの見本プログラム

赤文字の変更前のフルパス、青文字の変更後のフルパスを打ち換えてください。

Sub ファイル変更()

Dim Filename As String

Filename = Dir(“変更後のフルパス“)

If Filename = “” Then
Name “変更前のフルパス” As “変更後のフルパス“
Else
MsgBox “同じファイル名が存在します。移動先・ファイル名を見直してください”
End If

End Sub

⬛︎構文の設定

Name 変更前のフルパス As 変更後のフルパス

フルパスとは例えば「C:\読み取り前\ブックA.xlsx」のようなものです。

見本では「Cドライブ」の「読み取り前」というフォルダにある「ブックA」という意味になります。

フルパスを簡単にコピーできる方法については下記記事をご参照ください。

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

⬛︎ファイルの保存先フォルダを変更する

では本題に移りたいと思います。
例として「読み取り前」というフォルダから「読み取り後」というフォルダに移動させてみましょう。

今回は「読み取り前」のフォルダに「ブックA」というExcelファイルを保存しています。

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

Name 変更前のフルパス As 変更後のフルパス

とてもシンプルですね。
今回の例では「Cドライブ」の「読み取り前」というフォルダに保存しているので
「C:\読み取り前\ブックA.xlsx」というようになります。

ですのでこの文字が変更前のフルパスになります。

変更後のフォルダを「読み取り前」から「読み取り後」に変えたいので
「C:\読み取り後\ブックA.xlsx」というようになります。

こちらが変更後のフルパスですね。

では実際に、プログラムを作成してみましょう。
プログラムはこのようになります。

Sub ファイル変更()

Name “C:\読み取り前\ブックA.xlsx” As “C:\読み取り後\ブックA.xlsx“

End Sub

実行した結果はこちらになります。

「読み取り前」のフォルダから「読み取り後」のフォルダに移動できました。
MoveFileでの移動もできますが、「Name As」がシンプルで1番簡単だと思います。

⬛︎ファイル名を変更する

先程はフルパスを入力してフォルダの移動を行いました。
同じ方法でファイルの文字列を変更すると、ファイル名を変えることができます。

では「読み取り後」のフォルダに入ってある「ブックA」というファイルを
「ブックB」という名前に変更してみましょう。

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

Sub ファイル変更()

Name “C:\読み取り後\ブックA.xlsx” As “C:\読み取り後\ブックB.xlsx“

End Sub

先ほどと原理は同じですね。
それでは実行してみます。結果はこのようになりました。

「ブックA」から「ブックB」にファイル名が変更できていますね。

⬛︎よくあるエラーと対処法について

・実行時エラー’58’:既に同名のファイルが存在しています

こちらは文字通り、移動先のフォルダに同じファイル名のファイルが存在する。または
変更後の名前のファイル名が既に存在していることが原因です。

このエラーに関しては同じファイル名が無いか確認する必要があるのですが、
VBAのプログラムで自動で判別してくれたら便利ですよね。

そこで使用するのがDir関数になります。

Dir関数では入力したファイル名が存在しない場合は空白が返ってきます。
ちなみにファイル名が存在したらそのファイル名が返ってくる仕組みです。

Dir関数について詳しくまとめていますので是非参考にしてみてください。

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

ではプログラムを見てみましょう。

Sub ファイル変更()

Dim Filename As String

Filename = Dir(“C:\読み取り後\ブックB.xlsx”)

If Filename = “” Then
Name “C:\読み取り後\ブックA.xlsx” As “C:\読み取り後\ブックB.xlsx”
Else
MsgBox “同じファイル名が存在します。移動先・ファイル名を見直してください“
End If

End Sub

仕様として移動先・変更後のブック名が存在した場合は
メッセージボックスで「同じファイル名が存在します。移動先・ファイル名を見直してください」
というメッセージを表示させ、問題がなければそのまま処理するプログラムになります。

実際に同じファイル名が存在する場合はこのような画面になります。

これで、実行値エラーを防止することができます。

⬛︎公式の説明

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

Name ステートメント (VBA) | Microsoft Docs

⬛︎まとめ

いかがだったでしょうか。
ファイルの保存先の変更やファイル名の変更を「Nameステートメント」でできます。

読み取ったデータを読み取り後のファイルに移動させたり
用途は様々です。

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

指定フォルダにファイルが随時入ってきて、処理を繰り返す動作などにはよく使用されます。

さらに「ワイルドカード」との相性もよく、指定した文字を含むファイルのみ確認したいときや
Excelのファイル・PDFファイルなどファイル形式毎にも対応する方法を紹介していますので
是非参考にしてみてください。

それではみていきましょう！

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

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

見本ではメッセージボックスですが、処理したい方法に合わせてカスタムして使用してください。

Sub Dir確認()
Dim Filename As String
Filename = Dir("C:\検証ファイル\ブックA.xlsx")
If Filename = "" Then
MsgBox "対象シートはありません"
Else
MsgBox "対象シートは存在します"
End If
End Sub

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

・指定フォルダから対象のファイルが存在するか確認することができる
・指定フォルダから指定した文字・数値を含むファイルのみを確認することができる
・指定フォルダから対象の拡張子のファイルを確認することができる

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

「ファイルのパス」の部分に対象のファイルのパスを貼り付けると
変数Filenameに順次対象ファイル内のファイル名が格納されます。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“ファイルのパス*.*”)

Do While Filename <> “”

Filename = Dir

Loop

End Sub

⬛︎関数の仕組み

出力先＝Dir(pathname, [ attributes ] )

pathname…省略可。フォルダ名やファイル名を入力
attributes …省略可。ファイルの属性を入力

attributesの入力項目については下記表をご参照ください。

⬛︎指定フォルダ・ファイルから対象ファイルがあるか確認する

・対象のシートがあるか確認する

まず、対象シートがあるか確認したいと思います。
今回は見本で「検証ファイル」という名前のフォルダに「ブックA.xlsx」という

ファイルがあるか確認したいと思います。

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

出力先＝Dir(pathname, [ attributes ] )

それでは構文に当てはめてみましょう。
出力先を変数の「Filename」としました。
「pathname」についてはフォルダとファイル名なので「C:\検証ファイル\ブックA」となります。

当てはめた構文はこちらです。

Filename = Dir(“C:\検証ファイル\ブックA.xlsx“)

「.xlsx」といった拡張子も入力するようにしてください。

では実際にプログラムを入力してみましょう。
プログラムはこちらです。

Sub Dir確認()

Dim Filename As String

Filename = Dir(“C:\検証ファイル\ブックA.xlsx”)

End Sub

では確認してみましょう。
Dir関数でファイルの有無を確認していますが、ファイルがあった場合は
ファイル名を出力します。反対にファイルがなければ空白を出力します。

そしてIFでファイル名を出力した変数「Filename」が空白だった場合は
「対象シートはありません」のメッセージを表示し、空白でなければ
「対象シートは存在します」のメッセージを表示させます。

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

Sub Dir確認()

Dim Filename As String

Filename = Dir(“C:\検証ファイル\ブックA.xlsx”)

If Filename = “” Then
MsgBox “対象シートはありません”
Else
MsgBox “対象シートは存在します”
End If

End Sub

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

変数「Filename」に対象のファイル名が格納され、「対象シートは存在します」のメッセージが出ました。

では「C:\検証ファイル」に存在しない「ブックD」があるか確認するパターンも見てみましょう。

実行した結果はこちらです。

変数「Filename」は空白のままなので、「対象シートはありません」のメッセージが出ました。

・対象フォルダにあるファイルを順に確認する

さきほどは対象フォルダに指定したファイルがあるか確認しました。
今度はファイルを固定せずに対象フォルダ内の全てのファイルを
確認してみたいとおもいます。

では、見本のプログラムから見てみましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.xlsx”)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

「Do While Filename <> “”」から「Loop」で
ファイル名が格納される変数「Filename」が空白になるまで
繰り返し処理を行います。

【マクロVBA】Do…Loopで指定条件まで繰り返し・ループする!WhileとUntilの違いとは ► 独学エクセル塾 (dokugakuexcel.com)

ポイントは「Filename＝Dir」についてです。
ループ前に「C:\検証ファイル」で対象フォルダのファイル名を抜き出していますが、
再度、「Filename＝Dir」でファイル名を出力していますよね。

一度、Dirで読み取った場合、次に読み込むフォルダ引数なしの

「Dir」単体では出力していないファイルを順次出力していきます。
つまり、対象フォルダにあるファイルを順次確認できるといったプログラムになります。

　
ファイル名が「*.xlsx」となっていますがこちらは後ほど紹介します。

では実行していきましょう。
A1セルから読み取ったファイルを順次書き込んでいきます。

実行した結果はこちらです。

A列に指定フォルダ「C:\検証ファイル」の中にある「.xlsx」ファイルを書き出しすることができました。

・指定文字を含むファイルのみ確認する

先程の応用になります。
前回は対象フォルダ内の全ファイルを確認しましたが
今回は指定文字を含むファイルのみ確認したいと思います。

使用するのは「✳︎（ワイルドカード）」になります。
先ほどもファイル名を「*.xlsx」として使用していました。

機能として、ワイルドカードを入力すると全ての文字数値を対象としてくれます。

　
例えば「A」を含むファイルを確認したい場合は「✳︎A✳︎」となります。
さらに「頭文字をBとし、それ以降の文字・数値は全て対象」
という場合には「B✳︎」となります。

こちらを応用して先程のプログラムに書き込んでみたいと思います。

今回は「ブック」という文字を含むファイルを確認しましょう。
プログラムはこのようになります。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*ブック*”)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

実行した結果はこちら。

「ブック」という文字を含むファイルを確認できましたね。

先程はブック名でしたが拡張子でも絞り込みが可能です。
条件を「✳︎.pdf」としてみましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.pdf“)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

実行した結果はこちらです。

「PDF」のファイルを確認することができました。

⬛︎読み取り専用などファイルの属性を絞って確認する。

ファイルの属性には読み取り専用ファイルや隠しファイル
など存在します。

その属性を絞ってもファイルを確認することができます。
では再度、構文をみてみましょう。

出力先＝Dir(pathname, [ attributes ] )

今回は「attributes」の部分が該当します。
では下の表をご覧ください。

入力する値としては「0,1,2,4,8,16,64」を入力し、
その番号に応じて属性を絞ってファイル確認をします。

入力を省略した場合は属性のないファイルが対象となります。

今回は見本で隠しファイルを作成してみたいと思います。
対象フォルダは先ほどと同様、「C:\検証ファイル」で「フォルダ」というファイルを含むファイルを書き出してみようと思います。

例として「ファイルB」というファイルは隠しファイルとしたいと思います。

これで「ファイルB」が隠しファイルとなりました。

ではプログラムです。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.*”, 0)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

「attributes」を0の属性のないファイルで実行してみましょう。
「ファイルB」は隠しファイルなので含まれず、残りのすべてのファイルが出力されました。

では「attributes」を「2」にして隠しファイルも確認するようにしましょう。

Sub Dir全ファイル確認()

Dim Filename As String, WriteRow As Long

Filename = Dir(“C:\検証ファイル*.*”, 2)
WriteRow = 1

Do While Filename <> “”

Cells(WriteRow, 1) = Filename
WriteRow = WriteRow + 1
Filename = Dir

Loop

End Sub

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

今度は「ファイルB」も出力してくれました。

これで属性の絞り込みもできますね。

⬛︎補足の知識

「出力先＝Dir」で対象フォルダ内のファイルを
順次確認しましたが、日付順やファイル名順に抜き出し
たい方はファイルシステムの確認が必要です。

確認方法としてPCの画面の「ローカルディスクC」を右クリックして
「プロパティ」を選択します。

項目の１つに「ファイル　システム」があるので確認してみましょう。

いずれにしてもPCの設定で変わってしまうので
順を指定して処理したい場合は一度、変数やセルに格納して並び替えた後、
その順に処理するのが望ましいと思います。

⬛︎公式の説明

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

⬛︎まとめ

いかがだったでしょうか。
Dirを身につけると、指定フォルダに該当するファイルの
処理が可能になります。

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

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

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

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

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

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

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

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

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

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.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)

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

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

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

【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)