hakeの日記

Windows環境でプログラミングの勉強をしています。

EXCEL VBAメモ - ファイル選択ダイアログ

Sub fileSelectDialog()
    Dim fn As String
    fn = Application.GetOpenFilename( _
       "エクセルファイル(*.xls?),*.xls?" & ",CSVファイル(*.csv),*.csv")
    If fn <> "False" Then
       MsgBox fn
    End If

End Sub