Get selected paths : FileDialog « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. FileDialog

Get selected paths

 
Public Sub ShowFileDialog()
    Dim fd As FileDialog
    Dim selectedPaths() As String
    Dim I As Integer

    Set fd = Application.FileDialog(msoFileDialogOpen)
    With fd     'Configure dialog box
        .AllowMultiSelect = True
        .FilterIndex = 2
        .Title = "Select Excel File(s)"
        .InitialFileName = ""
        'Show the dialog and collect file paths selected by the user
        If .Show = -1 Then   'User clicked Open
            ReDim selectedPaths(.SelectedItems.Count - 1)
            'Store file paths for later use.
            For I = 0 To .SelectedItems.Count - 1
                selectedPaths(I) = .SelectedItems(I + 1)
            Next I
        End If
        .Execute     'Open selected files
    End With
    Set fd = Nothing
End Sub

 

Related examples in the same category