Sub FilePicker()
    Dim MyFD As FileDialog
    Set MyFD = Application.FileDialog(msoFileDialogFilePicker)
    
    With MyFD
    
        .InitialFileName = CurrentProject.Path
        
        .Filters.Clear
        .Filters.Add "テキスト", "*.txt", 1
        .Filters.Add "CSVファイル", "*.csv", 2
        .Filters.Add "全てのファイル", "*.*", 3
        .FilterIndex = 2
        
        If .Show Then
            MsgBox .SelectedItems(1)
        End If
    
    End With
    
    Set MyFD = Nothing
    
End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ