ExcelVBAで指定したフォルダを開いて、ユーザーにファイルを選択してもらう

GetOpenFilenameメソッドを使ってファイル選択ダイアログを開くと、カレントフォルダが表示されます。 任意のフォルダを指定したいときは、カレントフォルダを移動してからGetOpenFilenameメソッドを使います。

ファイルを選択しなかったときの処理もしておきます。

Sub File_open()
    Dim book As Workbook
    ChDrive "C"
    ChDir ("C:\Users\Documents")
    target = Application.GetOpenFilename("Excel ブック,*.xls?")
    If target <> "False" Then
        Set book = Workbooks.Open(target)
    Else
        MsgBox "キャンセルされました"　'ファイルを選択しなかったとき
    End If
End Sub