How to get desired text in open dialogue box

[gauravkrgautam]

Hi All,

Please help in making a dialouge box where i could get my desired text instead of open in open dialouge box. please find the attached image where i have tried to explore my words.

instead of open there should be like this "open september mid day collection file"

Hope it is undestandable.

 

[Marc L]

Hi,

moderate the Title of FileDialog object, see its inner VBA help !
​

 

[Hui]

Sub UseFileDialogOpen()

  Dim lngCount As Long

  ' Open the file dialog
  With Application.FileDialog(msoFileDialogOpen)
  .AllowMultiSelect = True
  .Title = "Open September mid day collection file"
  .Show
   
  ' Display paths of each file selected
  For lngCount = 1 To .SelectedItems.Count
  MsgBox .SelectedItems(lngCount)
  Next lngCount

  End With

End Sub

 

[gauravkrgautam]

Thanks Hui for kind revert i tried it out and able to get the name at title and also selected multi file but they are not opening. i am getting msg box with full path of file bu files are not opening.

 

[Hui]

Sub OpenFile()
FileToOpen = Application.GetOpenFilename _
  (Title:="Open September mid day collection file", _
  FileFilter:="Excel Files *.xls (*.xls),")

If FileToOpen = False Then
  MsgBox "No file specified.", vbExclamation, "Whoops"
  Exit Sub
Else
  Workbooks.Open Filename:=FileToOpen
End If

End Sub