Piece of code for File Dialog. 

Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
     
'Optional: FileDialog properties
fDialog.AllowMultiSelect = False
fDialog.title = "Select a file"
fDialog.InitialFileName = "C:\"
'Optional: Add filters
'fDialog.Filters.Clear
'fDialog.Filters.Add "Excel files", "*.xlsx"
'fDialog.Filters.Add "All files", "*.*"

fDialog.Show

To get the file path of the selected file

On Error Resume Next
filePath = fDialog.SelectedItems(1)

Controlling Cancel button:

On Error GoTo 0
    If filePath = "" Then
        Exit Sub
    End If

Categorized in:

VBA Excel,

Last Update: November 8, 2024