既存の別ブックを開く

１　元コード

ExcelマクロVBAセミナー初級編 | Excelセミナー・研修のすごい改善

Sub ブックを開く()
　　Application.ScreenUpdating = False
　　Dim fileName As String
　　fileName = Dir(ThisWorkbook.path & "\請求書*")
　　Workbooks.Open ThisWorkbook.path & "\" & fileName
　　ActiveWorkbook.Close
End Sub

２　アレンジ

（１）PPP

’カレントフォルダをThisworkbookのあるフォルダに変更しておく

’開きたいフルパスでファイルが存在したら

’ファイルを開く

’開きたいフルパスでファイルが存在しなかったら

　’ユーザーにファイルを選択させる

　’ユーザーがファイルを選択したら

　’ファイルを開く

（２）コーディング

Sub パスからブックを開く2()

’カレントフォルダをThisworkbookのあるフォルダに変更しておく

    With CreateObject("Wscript.Shell")

        .Currentdirectory = ThisWorkbook.path

    End With

    ’ファイルが存在すれば開く
　Dim myFileName As String
    myFileName = Dir(ファイルパス)

　If myFileName <> "" Then

           Workbooks.Open ファイルパス

   Else

　　’ファイルが存在しなかったらユーザーが選択する

        myFileName = Application.GetOpenFilename("エクセルファイル,*.xls?")

        If myFileeName<>"False"　Then

            Workbooks.Open myFileName

        End If

　End if

 End sub