FileDialog Question

[bigturnip]

When using the file picker or open dialog via the FileDialog property you can select multiple files to open, is it possible to restrict users to only selecting one file?

 

[DominicB]

Good afternoon bigturnip

Use the GetOpenFileName command - it has a series of parameters after it, the fifth one along is a boolean value for multiselect. Just set it to false.

a = Application.GetOpenFilename(, , , , False)

HTH

DominicB

 

[Kenneth Hobson]

Sub test()
  MsgBox FileOpen(ThisWorkbook.path & "\*.xls")
End Sub


Function FileOpen(initialFilename As String) As String
  With Application.FileDialog(msoFileDialogOpen)
    .ButtonName = "&Open"
    .initialFilename = initialFilename
    .Filters.Add "Excel (*.xls)", "*.xls", 1
    .Title = "File Open"
    .AllowMultiSelect = False
    If .Show = -1 Then FileOpen = .SelectedItems(1)
  End With
End Function