ExcelVBA 現在操作しているブックや特定ブックの名前を取得する方法

以下のようなシーンで利用されます。

1.開いているブックの一覧を取得して、特定の処理を行う。

2.ブック名を動的に取得して、保存やファイル操作に利用する。

3.特定の条件に一致するブックを操作する。

Excel VBA ブックの名前を取得する処理の利用｜使い方とポイント

Option Explicit

Sub GetActiveWorkbookName()
    Dim wbName As String
    ' アクティブなブックの名前を取得
    wbName = ActiveWorkbook.Name
    MsgBox "アクティブなブックの名前: " & wbName
End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
命令は分かる。でも作れない。その差は「作り方」です。
実務では、ここを知った瞬間にマクロが組み立てられるようになります。

▶ 実務マクロ設計ミニガイド（無料）
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

フルパス（保存先を含む名前）を取得

Option Explicit

Sub GetActiveWorkbookFullName()
    Dim wbFullName As String
    ' アクティブなブックのフルパスを取得
    wbFullName = ActiveWorkbook.FullName
    MsgBox "アクティブなブックのフルパス: " & wbFullName
End Sub

開いているすべてのブックの名前を取得

Option Explicit

Sub GetAllWorkbookNames()
    Dim wb As Workbook
    Dim wbNames As String
    wbNames = "開いているブック一覧:" & vbCrLf

    For Each wb In Workbooks
        wbNames = wbNames & wb.Name & vbCrLf
    Next wb

    MsgBox wbNames
End Sub

特定のブック名を確認

Option Explicit

Sub CheckSpecificWorkbook()
    Dim targetName As String
    Dim wb As Workbook
    Dim found As Boolean

    targetName = "SampleWorkbook.xlsx" ' 対象のブック名
    found = False

    For Each wb In Workbooks
        If wb.Name = targetName Then
            MsgBox "ブックが見つかりました: " & targetName
            found = True
            Exit For
        End If
    Next wb

    If Not found Then
        MsgBox "ブックが見つかりません: " & targetName
    End If
End Sub

名前だけが必要なら Name 、フルパスが必要なら FullName を使います。ブックが閉じられている場合や、特定の名前のブックが存在しない場合に備えてエラーチェックを行うと安全です。

この機能を利用することで、ブックを柔軟に操作でき、効率的な処理の構築に役立ちます。