Sub prcApplicationGetOpenFilename()

    Dim vntFileName As Variant

    'ファイルを開くダイアログを開きます
    vntFileName = _
        Application.GetOpenFilename( _
             FileFilter:="エクセルファイル(*.xls),*.xls" & _
                         ",CSVファイル(*.csv),*.csv" _
           , FilterIndex:=1 _
           , Title:="開けゴマ" _
           , MultiSelect:=False _
            )

    'ファイルが選択されているときは
    '選択したファイルをWorkbooks.Openメソッドで開きます
    If vntFileName <> False Then
       Workbooks.Open Filename:=vntFileName
    End If

End Sub