【Excel VBA】同名のブックが開かれているかを確認する

2023/10/242023/10/25

はじめに

今回は、同名のブックが開かれているかを確認する方法をご紹介します。
ブック名のチェック時に注意すべき点や、その対処法もご紹介します。

この記事を読むメリット

同名のブックが開かれているかを確認する方法が分かります
新規ブックに対してチェックする際の注意点も解説します
コピペで使える実践的なコードを掲載しています

Contents

前提
サンプルコード
1. 同名のブックが開かれているかを確認（ブック名のチェック）
最後に

前提

同名のブックが開かれているかを確認する場合、ブック名を取得して確認します。
その場合注意しなければならない点として、新規ブックは拡張子を持たない点が挙げられます。

以下画像の赤枠箇所を取得してチェックするのですが、以下が保存済みブックと新規ブックの違いです。

サンプルコード

同名のブックが開かれているかを確認（ブック名のチェック）

拡張子もチェック対象に含めるパターンと、含めないパターンの2パターンのサンプルをご紹介します。
使用用途に合わせて使い分けを実施してください。

拡張子を含めてチェックする（新規ブックを勘案しない）

サンプルコード

Public Sub checkOpenBookName()
    Dim wb As Workbook          ' Workbookオブジェクト
    Dim checkBookName As String ' チェック対象ブック名

    ' チェック対象のブック名を設定
    checkBookName = "vba-hack.xlsm"

    ' 全てのブック分ループ
    For Each wb In Workbooks

        If wb.Name = checkBookName Then

            ' ブック名がチェック対象ブック名と同名である場合

            MsgBox wb.Name & "が開かれています", vbExclamation
            Exit For
        End If
    Next wb
End Sub

拡張子を含めずチェックする（新規ブックを勘案する）

サンプルコード

Public Sub checkOpenBookNameForExcludeExtension()
    Dim fso As New FileSystemObject ' FileSystemObjectインスタンス
    Dim wb As Workbook              ' Workbookオブジェクト
    Dim checkBookName As String     ' チェック対象ブック名

    ' チェック対象のブック名を設定
    checkBookName = "Book1"

    ' 全てのブック分ループ
    For Each wb In Workbooks

        If fso.getBaseName(wb.Name) = fso.getBaseName(checkBookName) Then

            ' ブック名がチェック対象ブック名と同名である場合

            MsgBox fso.getBaseName(wb.Name) & "が開かれています", vbExclamation
            Exit For
        End If
    Next wb
End Sub