エクセルVBA「指定したワークブックを開く」

複数のブックにまたがってマクロを動作させるとき、ブックを開くマクロを作っておくと便利です。

本記事では、エクセルの便利マクロ「指定したワークブックを開くマクロ」をシェアします。

指定したワークブックを開くエクセルマクロ
まとめ

指定したワークブックを開くエクセルマクロ

以下のVBAコードを実行することにより、指定したワークブックを開くことができます。

すでにワークブックが開いている場合、該当ワークブックをアクティブにします。

Sub エクセルブック起動()

　　Dim wBook        As Workbook
　　Dim Path         As String
　　Dim Target       As String

    Path = "\\YYY\YY"   'ブックが入っているフォルダのパス
    Target = "XXXX.xlsx" 'ブックのファイル名称

　　'既に開いている場合は、対象ブックをアクティブにする
    For Each wBook In Workbooks
        If wBook.Name = Target Then　
            GoTo A
        End If
    Next wBook

    If Dir(Path & "\" & Target) <> "" Then '対象のファイルが存在するかチェック
       Workbooks.Open Path & "\" & Target, ReadOnly:=True
    End If

    Exit Sub
    
A:
    Windows(Target).Activate

End Sub