open filename containing specific characters in known folder

[Guest]

I will be grateful if anyone can give me some code to go to a known folder
and find and open a file that in its filename has say "PK26" so the fileaname
could be say "xyz PK26 abc.xls" or "PK26 zxqwer.xls" or whatever but
containing "PK26". I am specifically looking for "PK26" to be contained in
the name.

I basically need to loop down a list of part file names and open the
relevant file as above, do whatever then close the file and look for the next
one.

 

[Guest]

I have sorted it using Dir and wildcard

 

[Bob Phillips]

Look at Dir in VBA help, it should do what you want.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[Guest]

try something like this, I do a pattern search with .FileSearch then open
each file that matches the pattern.
Sub OpenPatternFile()
Dim cnt As Long
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.Filename = "*PK26*.xls"
.SearchSubFolders = False
.Execute
For cnt = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(1)
'Perform your operations
ActiveWorkbook.Close False
Next
End With
End Sub