Excelでファイル（ワークブック）が開いているか閉じているかを迅速に確認する方法は？

Excelでの日常業務では、同時に複数のワークブックを開いて作業することがありますが、時には数百ものワークブックがあり、特定のワークブックが開いているのか閉じているのかを覚えておくのが難しくなることがあります。ファイルを一つずつ確認する従来の方法をやめて、ここではワークブックが開いているか閉じているかを素早く見つけるためのコツをご紹介します。

VBAを使用してワークブックが開いているか閉じているかを確認する

Kutools for Excelを使用してワークブックが開いているか閉じているかを確認する

VBAを使用してワークブックが開いているか閉じているかを確認する

以下は、特定のワークブックが開いているか閉じているかを確認するために実行できるVBAコードです。

1. Alt + F11キーを押して Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、新しいモジュールウィンドウにVBAをコピーして貼り付けます。

VBA：ワークブックが開いているか閉じているかを確認する

Function IsWorkBookOpen(Name As String) As Boolean
    Dim xWb As Workbook
    On Error Resume Next
    Set xWb = Application.Workbooks.Item(Name)
    IsWorkBookOpen = (Not xWb Is Nothing)
End Function

Sub Sample()
    Dim xRet As Boolean
    xRet = IsWorkBookOpen("combine.xlsx")
    If xRet Then
        MsgBox "The file is open", vbInformation, "Kutools for Excel"
    Else
        MsgBox "The file is not open", vbInformation, "Kutools for Excel"
    End If
End Sub

3. そして F5 キーを押してこのVBAを実行すると、特定のワークブックが開いているかどうかを知らせるダイアログが表示されます。
    

ヒント: 上記のVBAでは、「combine」は確認したいワークブック名です。必要に応じて変更できます。

Kutools for Excelを使用してワークブックが開いているか閉じているかを確認する

VBAに慣れていない場合、Kutools for Excelを使ってナビゲーションペインでワークブックが開いているかどうかを確認できます。これにより、ペイン内のワークブックリストですべての開いているワークブックを明確に確認できます。

無料で Kutools for Excel をインストールした後、以下の手順を実行してください：

1. 「 Kutools > 」→「ナビゲーション」をクリックしてナビゲーションペインを有効にします。スクリーンショットをご覧ください： ナビゲーションペインを有効にするには「ナビゲーション」をクリックします。スクリーンショットをご覧ください：

2. 次に「 ワークブックとシート 」ボタンをクリックしてペインを展開し、「 ワークブックとシート 」セクションに移動します。上部のリストですべての開いているワークブックを確認できます。スクリーンショットをご覧ください：

ナビゲーションペインを使用すると、リスト内のワークブックやシート間をすばやく切り替えることもできます。

ナビゲーションについてさらに詳しくはこちらをクリックしてください。

デモ：Excelでシート名の動的なリストを作成するにはどうすればよいですか？