Excel VBA/ファイルを開くダイアログボックス

Office Tanaka VBA 講座の 名前を指定してブックを開く に詳しく載っている。

【受け取る変数がバリアント型(Variant)の場合】

Sub Sample2()
    Dim OpenFileName As Variant
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If OpenFileName <> False Then
        Workbooks.Open OpenFileName
    Else
        MsgBox "キャンセルされました"
    End If
End Sub

追伸

• ダイアログボックスのタイトルを指定するには
  　Application.GetOpenFilename("Microsoft Excelブック,*.xls?", Title:="タイトル")
  とする。
• 複数のファイルを選択するには
  　Application.GetOpenFilename("Microsoft Excelブック,*.xls?", MultiSelect:=True)
  とする。