Excel VBA ファイル選択画面を表示してファイル選択する　サンプル：ディスクトップフォルダ

    Dim StrOpenFileName As String
    Dim ObjWShell As Object
    Dim StrDesktop As String

 
    'オブジェクト生成
    Set ObjWShell = CreateObject("WScript.Shell")
    StrDesktop = ObjWShell.SpecialFolders("Desktop")
    Set ObjWShell = Nothing 
    
    ChDir StrDesktop
　　　
　　'ファイル選択画面表示

    StrOpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If StrOpenFileName <> "False" Then
        MsgBox StrOpenFileName '取得ファイルの表示
    End If