Allows the user to open a file

alt text

.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.

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