【パスが分かればブック操作は簡単】VBAでブックを開く方法を解説

Excelのブックを「開く」ってどうすればいいの？

'絶対パスでファイルを開く
Workbooks.Open "C:\Users\デスクトップ\フォルダ\sample"

'相対パスでファイルを開く（同じフォルダ内の場合）
Workbooks.Open ThisWorkbook.Path & "\sample.xlsx"

ブックを開くときのイメージ

VBAのコードだけで別のExcelブックを開くことができます。

そこで、ブックを開くときに重要になるのが「パス」です。

「パス」って何？

目的ファイルまでの道順のこと。

パスは目的のファイルやフォルダまでの住所や道順を表しているイメージです。

ブックを開くときは道順を示す「パス」を指定することで、目的のブックにたどり着き開くことができます。

そして、ブックを開くときのパスには「絶対パス」と「相対パス」の２通りで道順を指定することができます。

絶対パスとは、住所

絶対パスとは、ファイルの場所を示した住所でありドライブから記述します。

住所でいえば都道府県から記述して宛名で終わるイメージです。

例えば「pakaji.xls」ファイルの場所を探すときには、

Cドライブ→ユーザーのデスクトップ→フォルダ→pakaji.xlsという順序になります。

絶対パスは、この住所が分かれば指定できますが、途中の住所の名前が変わると目的地までたどり着けなくなってしまいます。そこで便利なのが「相対パス」です。

相対パスとは、現在地からの道順

相対パスとは、今いる現在地からどの道順で行けば目的地にたどり着けるかを指定する方法です。

現在地を基準として、「同じフォルダ内」もしくは「前や先のフォルダ」にファイルがあるのかを判断します。

現在開いているワークブックと同じフォルダ内にあるブックを指定する場合、

ThisWorkbook.Path & “ブック名.xlsx”

というコードで指定します。

ワークブックを開く

ワークブックを開くには下記のコードで開きます。

'
Workbooks.Open パス
'

絶対パスでワークブックを開く

Sub fileOpen()

'絶対パスでファイルを開く
Workbooks.Open "C:\Users\デスクトップ\フォルダ\sample"

End Sub

絶対パスで解説したパスをWorkbooks.Openの後に記述するだけです。

具体的に絶対パスを指定する方法は、プロパティを使うと便利です。

相対パスでワークブックを開く

Sub fileOpen()

'相対パスでファイルを開く（同じフォルダ内の場合）
Workbooks.Open ThisWorkbook.Path & "\sample.xlsx"

End Sub

具体的な相対パスの指定方法は開きたいブックの道順を調べるだけです。

異なる階層のフォルダへ相対パスを指定する

同じフォルダ内であれば ThisWorkbook.Path & “\ファイル名.xlsx” だけで相対パスを指定できますが、違う階層のフォルダに開きたいブックがあるときは「../」や「./フォルダ名」などを使用します。

「違う階層のフォルダ」って何？

パソコンのフォルダは地下構造になっておりデスクトップを地上をしたとき、デスクトップに表示されてるフォルダを開くと、そこは地下１階になるイメージです。

ちなみに作業中のフォルダ（現在地）のことを「カレントディレクトリ」と呼びます。

＜相対パスで階層を指定＞

ブックを開く最適なコード

ブックを開く時には予期しないことでエラーになったりします。

そこで、これらの事態を想定してプログラムを組み込んでおけばエラーにならずに済みます。

Sub fileOpen()

    Dim check
    Dim book
    Dim file
    
    '開きたいブックを格納
    file = "C:\Users\デスクトップ\フォルダ\sample.xlsx"
    
    '➀ブックの存在をチェック
    check = Dir(file)
    
    If check = "" Then
        MsgBox file & vbCrLf & "はありません"
        Exit Sub
    End If
    
    '➁同名のブックが開かれていないかをチェック
    For Each book In Workbooks

        If book.Name = check Then
            MsgBox check & vbCrLf & "は今開いています"
            Exit Sub
        End If
    
    Next book
    
    '目的のブックを開く
    Workbooks.Open file
    
End Sub

① ブックの存在をチェックする

ファイルが存在するか確認するときはDir関数を使います。

「Dir関数」って何？

Dir(パス)：パス通りにファイルが存在すれば、ファイル名を返す関数。もし、ファイルが存在しなければ空白（””）を返す。

このDir関数を用いてファイルが存在すれば問題ないですが、存在しない場合はMsgBoxで表示すると分かりやすいです。

➁同名のブックが開かれていないかをチェックする

同名のブックが開いているか確認するには「For Each ～ Next」文を使うと便利です。

For Each 変数 In コレクション
　処理
Next 変数

「For Each ～ Next」文を用いて、今開いてるワークブックの名前を知りたいので、

「For Each 変数 In Workbooks」として今開いているワークブックを順番で探しに行きます。

※ブックを開いた順番で探しに行きます。

そして、「If 変数.Name = Dir(パス) Then」で今開いているワークブックの名前と開きたいブックの名前が一緒かを確認して、同じ場合はMsgBox関数で注意メッセージを表示させます。

まとめ

'絶対パスでファイルを開く
Workbooks.Open "C:\Users\デスクトップ\フォルダ\sample"

'相対パスでファイルを開く（同じフォルダ内の場合）
Workbooks.Open ThisWorkbook.Path & "\sample.xlsx"