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

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

1.The FileDialog Object
2.Set the AllowMultiSelect property of the dialog box to allow multiple selections in the dialog box
3.Open File Open Dialog and get the selection (Dialog Types Used with the FileDialog Object)
4.Use the SelectedItems property of the FileDialog object to return the FileDialogSelectedItems collection.
5.You can use the Add method of the FileDialogFilters collection object to create your own list of filter
6.FileDialog with JPG file filter
8.User selects path to save HTML files
9.Displays a dialog box that allows the user to select a directory. The selected directory name (or "Canceled") is then displayed by using the MsgBox function.