How to use filter in filedialog ?

[rodrigo_m_almeida]

Good Morning,

Needed to filter the selection of files by the initials of the filename and extension

Example :

Display files with ABC initials and CSV extension

ABC123.CSV
ABC321.CSV
ABCSCHOOL.CSV
ABCMEDIC.CSV

Etc...

' Declare Variables
        Dim xPathName As Variant, xFileName As String
' Browse File
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False
            .Title = "Select File:"
            With .Filters
                .Clear
                .Add "Excel Files", "*.csv*"     ' Search Filter <
            End With
            If .Show() Then xFileName = .SelectedItems(1) Else Exit Sub
        End With
' Open File
        Workbooks.Open Filename:=xFileName, Delimiter:=";", Local:=True

Anyone have an idea how to do this ?

 

[Micron]

Did you research the use of the dialog in your other thread on this as I suggested

Select and Open File (VBA)

Good morning, Could anyone help me with this ? I would like to adapt this code I am using to select and open only one file instead of the folder... Public Sub ABC123() ' Declare Variables Dim xPathName, xFileName As String ' Browse File Set FileDialog =...

www.mrexcel.com

because you probably would have learned more by researching as opposed to being handed code like that.
Using the InitialFileName property with wild card is an option, in conjunction with the .Filter property.

 

[Micron]

BTW, you should not need the .Filter property because you can specify the file extension in the InitialFileName property (which will limit your extension choices to one file type). Could use
.InitialFileName = "C:\. . .\ABC*.CSV"

 

[rodrigo_m_almeida]

BTW, you should not need the .Filter property because you can specify the file extension in the InitialFileName property (which will limit your extension choices to one file type). Could use
.InitialFileName = "C:\. . .\ABC*.CSV"

You are inspiration...
Thanks for all !

 

[Micron]

You're welcome. Glad I could help.