Application.FileDialog .Filters.Add method not working as expected
Hi Geoff,
Did you really get the answer you were looking for? If you did then
disregard the following.
I thought that Filters referred to the actual list of available file types
that you select from the dropdown if you open the filedialog box in the
interactive mode.
If you want all file names that start with "Consolidation Reports" then you
should set InitialFileName
..InitialFileName = "Consolidation Reports*.xls"
You can also prefix the filename with the path otherwise it uses the current
directory.
--
Regards,
OssieMac
"geoff_ness" wrote:
Hello
I have used the following in Excel 2007 to allow a user to select a
file:
Dim fdObj As FileDialog
Set fdObj = Application.FileDialog(msoFileDialogOpen)
With fdObj
.AllowMultiSelect = False
.Title = gsAPP_NAME
.Filters.Clear
.Filters.Add "Consolidation Reports", ".xls"
.InitialView = msoFileDialogViewDetails
If .Show = -1 Then
.Execute
End If
End With
Set fdObj = Nothing
Fairly standard I would have thought, but this breaks on the line with
the .Filters.Add method, with error message "Invalid procedure call or
argument". What am I missing here?
Cheers
Geoff
.
|