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

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

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

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

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

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)

そこで今回は様々なシートをアクティブ・選択する方法についてまとめてみました。

使用する頻度も高いと思いますので是非参考にしてみてください。

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

■シートをアクティブにする仕組み

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

対象のシート名でアクティブにする方法
Sheets("シート名").Activate

シートの順でアクティブにする方法
Sheets(シートの順).Activate

すべてのシートをアクティブにする方法
Worksheets.Select

上記のようにシートのアクティブには様々な方法があります。では１つずつ説明します。

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

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

使用方法は下記の見本のようになります。

Sheets(“アクティブにしたいシート名“).Activate

「Sheets」と.「Activate」の間にシート名を選択するだけです。

例えば現在「123」というシートをアクティブにしている状態ですが
「いろは」をアクティブにしてみましょう。

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

Sub シート名から別シートをアクティブにする()

Sheets(“いろは“).Activate

End Sub

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

「いろは」のシートがアクティブになっていますね。

うまく機能してくれています。

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

今度はシート順を参考にしてアクティブにする方法です。
1番右にメインシートを置いておき、メインシートをアクティブにしたいときに使えますね。

Sheets(左から数えてアクティブにしたいシートの番号).Activate

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

「Sheets」と「Activate」の間に左から数えたシートの順番を選択するだけです。

今回も「123」というシートをアクティブにしている状態とし、
左から3番目の「ABC」をアクティブにしてみましょう。

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

Sub シート順から別シートをアクティブにする()

Sheets(3).Activate

End Sub

結果は…

３つ目のシートにあたる「ABC」のシートがアクティブになっていますね。

狙い通りですね。

■すべてのシートをアクティブにする

今度はすべてのシートをアクティブにする方法です。

方法は下記の通りです。

Worksheets.Select

シンプルですが、これだけで大丈夫です。

変化点として選択するシートが複数になる場合はSelectになります。

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

Sub 全てのシートをアクティブにする()

Worksheets.Select

End Sub

結果は…

全てのシートが選択できてますね。

■指定した複数のシートをアクティブにする

最後は指定した複数のシートをアクティブにする方法です。
今回も複数なのでSelectになってます。

仕組みはこちら

Sheets(Array(“アクティブにしたいシート①”, “アクティブにしたいシート②”)).Select

見本は2個になってますが何個でも構いません。
ちなみに順番でもできます。

Sheets(Array(1,3)).Select

上記のプログラムだと1番目と3番目のシートが選択されます。

Sub 1番目と3番目のシートをアクティブにする()

Sheets(Array(1, 3)).Select

End Sub

結果は….

狙い通り「１番目」と「３番目」のシートがアクティブになりました。

⬛︎公式

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

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

■まとめ

いかがだったでしょうか。
機能や仕組みを増やすと別シート選択は必要になってきます。

身につけると別シートの数値をコピペできたり
別シートに張り付けができたりすることができます。

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

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

【マクロVBA知識 13】別のブックをアクティブ・現在開いているブックを記憶する ► 独学エクセル塾 (dokugakuexcel.com)