VBA Application.Documents.Open with Dynamic Filename

[jagrenet]

Hello Gurus,

I have a question regarding the process mentioned in the Title.
When working with the "Document.Open" method, I have one particular document that the filename changes or varies just slightly from client to client.
For instance -
wd.Documents.Open("C:\Monthly_Reports\Customer_01\My Customer Report - John.docx")
Or
wd.Documents.Open("C:\Monthly_Reports\Customer_02\My Customer Report - Mary.docx")
Or
wd.Documents.Open("C:\Monthly_Reports\Customer_03\My Customer Report - Bob.docx")

My question is, can I use an asterisk in place of the client's name, (John, Mary, Bob) to have the code still open that document? If so, what is the format for the asterisk ..... does it require quotation marks, or a dot?
Such as -
wd.Documents.Open("C:\Monthly_Reports\Customer_01\My Customer Report - "*".docx")
Or
wd.Documents.Open("C:\Monthly_Reports\Customer_01\My Customer Report - *.docx")

I suppose I am asking if the asterisk can be used as a wildcard character in the filepath string and is that even "allowed"?
Thanks in advance,
Jeff

 

[aRandomHelper]

I don't believe your idea of a wildcard would work for Documents.Open, but you can work around that. Using the Dir function, you would be able to list out filenames/folders, and with that retrieved info, store the filename in a variable, then open it.

 

[jagrenet]

I don't believe your idea of a wildcard would work for Documents.Open, but you can work around that. Using the Dir function, you would be able to list out filenames/folders, and with that retrieved info, store the filename in a variable, then open it.

Thanks for that !! - DIR seems to be exactly what I was looking for however, I have never used it and need to do some further research on it. Would you have any examples you can share in the meantime ??

 

[Tupe77]

Did you mean something like this?

Sub OpenCustomer()
    Dim wordapp: Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open ("C:\Monthly_Reports\Customer_02\" & Dir("C:\Monthly_Reports\Customer_02\My Customer Report*.docx"))
    wordapp.Visible = True
End Sub

 

[jagrenet]

Did you mean something like this?

Sub OpenCustomer()
    Dim wordapp: Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open ("C:\Monthly_Reports\Customer_02\" & Dir("C:\Monthly_Reports\Customer_02\My Customer Report*.docx"))
    wordapp.Visible = True
End Sub

Thanks Tupe77 !! - I will test this as soon as I get an opportunity and report back.

 

[jagrenet]

Did you mean something like this?

Sub OpenCustomer()
    Dim wordapp: Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open ("C:\Monthly_Reports\Customer_02\" & Dir("C:\Monthly_Reports\Customer_02\My Customer Report*.docx"))
    wordapp.Visible = True
End Sub

***UPDATE*** - Thank you Tupe77 - that worked brilliantly !! I also added a question mark in place of the "x" in .docx (.docx = .doc?). I found this useful if the file format is not always ".docx". Thanks again for your help !!