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