Windows 10 Pro_x64 + Excel2013_x86 VBA GetOpenFilename でファイルを開く

DTPickerを使える状態にするとCommonDialogも使えるのだけど

今回はGetOpenFilenameを試す

参考にしたサイトはこちら

Application.GetOpenFilename メソッド (Excel)

GetOpenFilename( FileFilter , FilterIndex , Title , ButtonText , MultiSelect )

式Application オブジェクトを表す変数。

パラメーター

名前	必須 / 省略可能	データ型	説明
FileFilter	省略可能	バリアント型 (Variant)	ファイルの候補を指定する文字列 (ファイルフィルター文字列) を指定します。
FilterIndex	省略可能	バリアント型 (Variant)	引数FileFilter で指定したファイルフィルター文字列の中で、1 から何番目の値を既定値とするかを指定します。この引数を省略するか、ファイルフィルター文字列の数より大きい数値を指定すると、最初のファイルフィルター文字列が既定値となります。
Title	省略可能	バリアント型 (Variant)	ダイアログボックスのタイトルを指定します。この引数を省略すると "ファイルを開く" になります。
ButtonText	省略可能	バリアント型 (Variant)	Macintosh でのみ指定できます。
MultiSelect	省略可能	バリアント型 (Variant)	True を指定すると、複数のファイルを選択できます。False を指定すると、1 つのファイルしか選択できません。既定値は False です。

サンプルコード

Private Sub CommandButton1_Click()

    Dim strFile As String

    strFile = GetFileName

 Debug.Print strFile

End Sub

Function GetFileName() As String
'
    Dim FileFilter      As Variant
    '
    ' 定義はしているが今回は未使用
    '
    Dim Title           As Variant
    Dim FilterIndex     As Variant
    Dim MultiSelect     As Variant
    Dim fileToOpen      As Variant
'
    FileFilter = "テキストファイル (*.txt), *.txt,CSVファイル (*.csv), *.csv"
'
    fileToOpen = Application.GetOpenFilename(FileFilter)
'
    If fileToOpen <> False Then
        GetFileName = CStr(fileToOpen)
    Else
        GetFileName = Space(0)
    End If'
End Function