.GetOpenFilename - Filter on File Name

[Chris]

Hi,

Is there a way to filter the "File Name" when I use the .GetOpenFilename
dialog?
I'd like it to open to a folder, and then filter on text files with
"Monthly_Table_*.txt"
(I know I can filter on the ".txt" files, but I'd like to filter on the file
names too)

Thanks in advance for any pointers.
Chris

 

[Bob Phillips]

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "*mystring*.xls"

If .Show = 1 Then

MsgBox .SelectedItems(1)
End If
End With

 

[Jacob Skaria]

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialFileName = "Monthly_Table_*.txt"
.Show
strFile = .SelectedItems(1)
End With

If this post helps click Yes

 

[Chris]

Thanks very much Jacob, very useful and thanks for the promptness.

One further thing I discovered thats causing a wobbly, is the file is not a
text file; its a .dat file.

Therefore it doesn't show. I've tried all categories but nothing seemed to
work.

Any chance you might know how this is resolved?

If not, no problem, you've already given me a good solution that I can work
around with, so thanks again.

 

[Rick Rothstein]

I've added just one line to Jacob's code (the .Filters line)... this adds a
".dat" item to the selection list; the 1 at the end makes it the first item
in the list. I also changed the default file name's extension to ".dat".

Dim strFile As String
With Application.FileDialog(msoFileDialogOpen)
.Filters.Add "Dat Files", "*.dat", 1
.AllowMultiSelect = False
.InitialFileName = "Monthly_Table_*.dat"
.Show
strFile = .SelectedItems(1)
End With

 

[Jacob Skaria]

Thanks Rick for the follow up.

I've added just one line to Jacob's code (the .Filters line)... this adds a
".dat" item to the selection list; the 1 at the end makes it the first item
in the list. I also changed the default file name's extension to ".dat".

Dim strFile As String
With Application.FileDialog(msoFileDialogOpen)
.Filters.Add "Dat Files", "*.dat", 1
.AllowMultiSelect = False
.InitialFileName = "Monthly_Table_*.dat"
.Show
strFile = .SelectedItems(1)
End With

--
Rick (MVP - Excel)




.