vba open workbook with certain word in middle of the file name

[phairplay]

Hi Guys,

is it possible to open a xls file with only knowing part of the string

I have two file

Custx Fore wk 18 NetChange-Report-A
Custx Firm wk 18 NetChange-Report-A

I want to open the Fore file and work on it and then do the same on the firm. my issue is the Custx string changes so does the Wk 18.

how do I open the file based only on
Fore & Firm

cheers

 

[wideboydixon]

VBA:

Const sourceFolder = "C:\Users\phairplay\Documents\" ' Change as appropriate
Public Sub OpenPartialFilename(partialMatch As String)

Dim foundFile As String

foundFile = Dir(sourceFolder & "*" & partialMatch & "*.xlsx")
If foundFile <> "" Then Workbooks.Open sourceFolder & foundFile

End Sub
Public Sub OpenFore()

OpenPartialFilename "Fore"

End Sub
Public Sub OpenFirm()

OpenPartialFilename "Firm"

End Sub

WBD