Open more than 1 excel file begining with the name "abc"

[Mac.ashish]

Hi folks,

I want a help. I wish to open an excel file from the folder which the file name begins with "abc".

I have more than 1 file begining with the same name.

E.g "C:\Tool" folder name
"abcd lerning.xls" & "abcde teaching.xls" are two files at the above location along with many other files.
Can we have a macro to open both the files on one click?
Plzzz help...

Early reponse will highly be appreciated.

Thanks,
mac

 

[VoG]

Maybe like this

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\example"
MyFile = Dir(MyFolder & "\abc*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
    MyFile = Dir
Loop
End Sub

 

[Mac.ashish]

Maybe like this

Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\example"
MyFile = Dir(MyFolder & "\abc*.xls")
Do While MyFile <> ""
    Workbooks.Open Filename:=MyFolder & "\" & MyFile
    MyFile = Dir
Loop
End Sub

Hey,

It worked...

Thanx VoG...