How can I use wild cards when calling .xls files to open ?

[Guest]

Can someone tell me if you can use wild cards while calling an excel file to be opend and if so how.
for exampl

This is a line of vba code I used and it doesn't wor
Set ExcelSheet = GetObject("C:\MyExcelFiles\"MyExcelFile*.xls")

Is there a way to use wild cards like the astrik "*" when using vba code to get and open an .xls file ??

Thankyou, Da

 

[Tom Ogilvy]

Dim sPath as String, sFile as String, sName as String
sPath = "C:\MyExcelFiles\"
sFile = "MyExcelFile*.xls"
sName = Dir(sPath & sFile)
if sName <> "" then
set ExcelSheet = GetObject(sPath & sName)
Else
msgbox "No Match"
End If

--
Regards,
Tom Ogilvy

Can someone tell me if you can use wild cards while calling an excel file to be opend and if so how.
for example

This is a line of vba code I used and it doesn't work
Set ExcelSheet = GetObject("C:\MyExcelFiles\"MyExcelFile*.xls")

Is there a way to use wild cards like the astrik "*" when using vba code

to get and open an .xls file ???

 

[Kevin Beckham]

You could also try

Dim fName As String

ChDrive "C"
ChDir "C:\MyExcelFiles"
fName = Application.GetOpenFilename("Excel files,*.xls", _
, "Select file to open")
If fName <> "False" Then
Set ExcelSheet = GetObject(fName)
End If


Kevin Beckham

-----Original Message-----
Can someone tell me if you can use wild cards while

calling an excel file to be opend and if so how.

for example

This is a line of vba code I used and it doesn't work
Set ExcelSheet = GetObject ("C:\MyExcelFiles\"MyExcelFile*.xls")

Is there a way to use wild cards like the astrik "*" when

using vba code to get and open an .xls file ???