Sub ファイルを選択してファイル開く_ダイアログボックス()
    
    'ファイルを開くダイアログボックスを表示する（例：エクセル）
    開きたいファイル = Application.GetOpenFilename("ファイル,*.xls*")
    
    'キャンセルされていたらEnd
    If 開きたいファイル = False Then End
    
    'ファイルを開く
    Workbooks.Open 開きたいファイル
    
End Sub