Using Multiple Wilcards in Macro to open multiple Files

[howard]

I have the following code below

I need the code with the wildcard to be amended so that files containing the will display in folder to all user to select the one containing these names

 Dim FileAry As Variant, Fle As Variant
   With Application.FileDialog(3)
      .InitialFileName = "C:\My Documents\"
      .AllowMultiSelect = True
      .InitialFileName = "*Barney*","*Frame Finance*","*credit*xls*"
      If .Show Then Set FileAry = .SelectedItems()

it would be appreciated if someone could kindly assist me

 

[John_w]

Try this:

        .InitialFileName = "C:\My Documents\*Barney*.xls*;*Frame Finance*.xls*;*credit*.xls*"

 

[howard]

Thanks for the help. It works perfectly

 

[howard]

I have several csv files in folder C:\downloads that I need to open that contains "BTMK" for eg Increases BTMK June 2020.csv, increases BTMK July 2020.csv etc

I have used a wildcard to open only the files that contain BTMK in folder C:\downloads but all csv files in this folder are being displayed


Kindly check my code and amend

your assistance is most appreciated

 Sub Open_Workbook()
A:
Dim A As Variant
Dim LR As Long
A = Application.GetOpenFilename(MultiSelect:=True)
If TypeName(A) = "Boolean" Then Exit Sub

Dim file As Variant

Dim FileAry As Variant, Fle As Variant
With Application.FileDialog(3)
.AllowMultiSelect = True
.InitialFileName = "C:\downloads\*Increases*BTMK*.csv*"
If .Show Then Set FileAry = .SelectedItems()
End With
For Each file In FileAry
   If TypeName(A) = "Boolean" Then Exit Sub



Application.ScreenUpdating = False
           With Workbooks.Open(file)

    
With Sheets(1)
.Range("a1", .Range("O" & Rows.Count).End(xlUp)).Copy _
Destination:=ThisWorkbook.Sheets(1).Range("A" & Rows.Count).End(xlUp).Offset(1)


End With

.Close SaveChanges:=False
End With
Next
Application.ScreenUpdating = True
End Sub

 

[howard]

Have posted similar post on Data not copied

 

[John_w]

You should have started a new thread since this issue is unrelated to specifying multiple wildcards in the InitialFileName property.

It looks like you're mixing GetOpenFileName and Application.FileDialog, so I would delete everything relating to the former.

 

[howard]

Thanks for your input