Open File Dialog using VBA
Posted: Sun Jun 21, 2020 7:22 am
Sub FileDialogOpen()
' Open File Dialog to only select multiple Excel files
' ERPstuff.com
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add "Excel Files", "*.xlsx; *.xlx", 1
.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next i
End With
End Sub
' Open File Dialog to only select multiple Excel files
' ERPstuff.com
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add "Excel Files", "*.xlsx; *.xlx", 1
.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next i
End With
End Sub