excel vba open file dialog box

[bryanrobson]

Hi. I want to be able to modify the below code to firstly drop the need for the msgbox. So when the prompt appears to select a file to open it actually says "Select today's file". and also change it so that it only limits showing *.xlsx files.

Many thanks


Set fd = Application.FileDialog(msoFileDialogFilePicker)
fd.AllowMultiSelect = False


MsgBox "Select today's file"
fd.InitialView = msoFileDialogViewList
fd.AllowMultiSelect = True



FileChosen = fd.Show
If FileChosen = -1 Then
For i = 1 To fd.SelectedItems.Count
Call ReadDataFromSourceFile(fd.SelectedItems(i))
Next i
End If

 

[rollis13]

Use:

fd.Title = "Select today's file"

instead of:

MsgBox "Select today's file"

 

[PeteWright]

   Set fd = Application.FileDialog(msoFileDialogFilePicker)
   fd.Title = "Select today's file"

   fd.InitialView = msoFileDialogViewList
   fd.AllowMultiSelect = True

   fd.Filters.Clear
   fd.Filters.Add "Excel Workbook", "*.xlsx"

   FileChosen = fd.Show
   If FileChosen = -1 Then
      For i = 1 To fd.SelectedItems.Count
         Call ReadDataFromSourceFile(fd.SelectedItems(i))
      Next i
   End If

 

[bryanrobson]

perfect guys. thanks both very much.

Regards