Folder or File Picker - Heeyoung-Ahn/Excel_VBA GitHub Wiki

Sub FolderPicker()
    Dim rawPath As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        rawPath = .SelectedItems(1) & Application.PathSeparator
    End With
    MsgBox rawPath
End Sub

Sub FilePicker()
    Dim i As Integer
    With Application.FileDialog(msoFileDialogOpen)
        .Show
        If .SelectedItems.Count = 0 Then Exit Sub
        For i = 1 To .SelectedItems.Count
            MsgBox .SelectedItems(i)
        Next i
    End With
End Sub

'GetOpenfilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
Sub GetOpenFilename()
    Dim fileToOpen As Variant
    Dim eachFile As Variant
    Dim cntArray As Integer
    
    fileToOpen = Application.GetOpenFilename(filefilter:="Excel Files, *.xls*", Title:="Select Excel Files", MultiSelect:=True)
    If TypeName(fileToOpen) = "Boolean" Then Exit Sub
    
    cntArray = UBound(fileToOpen) - LBound(fileToOpen) + 1
    MsgBox cntArray
    
    For Each eachFile In fileToOpen
        MsgBox eachFile
    Next eachFile
End Sub