File Dialog - Filters.Add does not work in Excel for Office 365

[Mike2]

Hello,

Has anyone encounter a Run Time Error 438 - Object doesn't support this property or method
when running VB code for File Dialog - Filters.Add in Excel for Office 365?

Typical codes:

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
   .ButtonName = "Select"
   .Filters.Add "All Files", "*.*"
   .InitialView = msoFileDialogViewDetails 
   .Show
End with

When i exclude Filters.Add "All Files", "*.*" in my code,
the File Dialog window does not show any file to select.

The code works fine without error in Excel 2010.

Your expertise to resolute this issue is greatly appreciated...thanks.

 

[bobsan42]

your dialog is set to select Folders, while you need files. change to this:

set fd=Application.FileDialog ([COLOR=#ff0000]msoFileDialogFilePicker[/COLOR])

 

[Mike2]

Oh geeze, i have chosen the wrong selection in the pop up menu...no wonder the code did not work.
Thank you so much for catching the error, @bobsan42.

 

[bobsan42]

You are welcome.