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

Excelマクロ(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

まとめ

いかがでしたでしょうか。

業務効率化の参考になれば幸いです。

その他、エクセルVBAマクロの便利ツールは以下記事を参照ください。

コメント

タイトルとURLをコピーしました