Error 438 FileDialog Filters.Add

[GalileoGali]

This is my code:

[vba]
Sub test()
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
With dlg
.InitialFileName = "C:\"
.Title = "Choose the file."
.Filters.Clear .Filters.Add "Excel", "*.xls"
.Show
End With
End Sub
[/vba]
WHY I OBTAIN A ERROR 438 IN THIS LINE?
.Filters.Add "Excel", "*.xls"

[Paul_Hossler]

If you really have these two statements on a single line ...

[VBA]
.Filters.Clear .Filters.Add "Excel", "*.xls"
[/VBA]


... try making two lines.

[VBA]
Option Explicit
Sub test()
Dim dlg As FileDialog

Set dlg = Application.FileDialog(msoFileDialogFilePicker)

With dlg
.InitialFileName = "C:\"
.Title = "Choose the file."
.Filters.Clear
.Filters.Add "Excel", "*.xls"
.Show
End With
End Sub
[/VBA]

This seems to work for me

Paul

[GalileoGali]

Thanks.
NO, but it was just an edition error

[lucas]

Are you trying to open a file browser that only shows excel files?

Paul's solution works for me too.

[GalileoGali]

Thanks.
THE SAME CODE
In my version Excel 2007 >> OK
In my version Excel 2003 >> ERROR 438
In my version Excel 2000 >> FileDialog not exists

[lucas]

I have 2003 and it works without error.....