Open

Allows the user to open a file


.InitialFileName = "C:\temp\"
.InitialView = msoFileDialogView.msoFileDialogViewLargeIcons


Dim objFileDialog As Office.FileDialog 
    Set objFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogOpen)
    
    With objFileDialog
        .AllowMultiSelect = True
        .ButtonName = "Open"
        .Title = "Open"
        If (.Show > 0) Then
        End If

Dim oFileDialogSelectedItems
      Set oFileDialogSelectedItems = .SelectedItems

    End With

FileDialogSelectedItems - A collection of string values that correspond to the folder paths of the files or folders that have been selected.



© 2020 Better Solutions Limited. All Rights Reserved. © 2020 Better Solutions Limited TopPrevNext