Option Compare Database

Public Function GetOpenFileName() As String
 
    Dim MyDialog As Office.FileDialog
    Dim picked As String
 
    ' FilePickerでファイル取込の指定を行う
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
 
    With MyDialog
        .AllowMultiSelect = False
        .Title = "取込むExcelファイルを選択してください"
        .Filters.Clear
        .Filters.Add "Excelファイル(*.xlsx;*.xls)", "*.xlsx; *.xls"
        .Filters.Add "テキストファイル(*.txt)", "*.txt"
        '.Filters.Add "すべてのファイル", "*.*"
 
        ' ---- ダイアログ表示 ----
        If .Show = -1 Then   ' OK が押されたとき
            GetOpenFileName = .SelectedItems(1)
 
            
            'MsgBox "インポートが完了しました！" & vbCrLf & GetOpenFileName, vbInformation
 
        Else
            GetOpenFileName = ""
            
            ' ---- キャンセル時 ----
            'MsgBox "ファイルが選択されませんでした。処理を中止します。", vbExclamation
        End If
    End With
End Function