Windows 10 Pro x64 + Excel2016 x86 VBA で GetOpenFilename でファイルを開く

目的

DTPickerを使える状態にするとCommonDialogも使えるのだけど
今回はGetOpenFilenameを試す
各パラメータについてはApplication.GetOpenFilename メソッド (Excel)を参照

サンプルコード

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