Open 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".

Please reply your stuffs. I need VBA coding for excel.

Early reponse will highly be appreciated.


Thanks,
mac

 

[MrKowz]

Welcome to the forums!

Perhaps:

Dim fPath As String
Dim fName As String
fPath = "C:\Excel Files"
fName = Dir(fPath & "\" & "*.xls")
Do While Len(fName) > 0
    If Left$(fName, 3) = "abc" Then
        Workbooks.Open (fPath & "\" & fName)
        Exit Do
    End If
Loop

 

[VoG]

Or

Sub OpenABC()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\example"
MyFile = Dir(MyFolder & "\abc*.xls")
If MyFile <> "" Then Workbooks.Open Filename:=MyFolder & "\" & MyFile
End Sub

 

[Mac.ashish]

Welcome to the forums!

Perhaps:

Dim fPath As String
Dim fName As String
fPath = "C:\Excel Files"
fName = Dir(fPath & "\" & "*.xls")
Do While Len(fName) > 0
    If Left$(fName, 3) = "abc" Then
        Workbooks.Open (fPath & "\" & fName)
        Exit Do
    End If
Loop

Thnx a lot MrKowz...
It worked..

 

[Mac.ashish]

Thanx guys,

Both the way worked..

great

 

[Mac.ashish]

Or

Sub OpenABC()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\example"
MyFile = Dir(MyFolder & "\abc*.xls")
If MyFile <> "" Then Workbooks.Open Filename:=MyFolder & "\" & MyFile
End Sub

Thanx guys,

Both the way worked..

great

 

[Mac.ashish]

Ohhh... one obstacle....

I have more than 1 file begining with teh same name.
E.g "C:\Tool" folder name
"abcd lerning.xls" & "abcde teaching.xls" are two files at the above location.

Can we have a macro to open both the files on one click?

Plzzz help...

 

[Mac.ashish]

Or

Sub OpenABC()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "C:\example"
MyFile = Dir(MyFolder & "\abc*.xls")
If MyFile <> "" Then Workbooks.Open Filename:=MyFolder & "\" & MyFile
End Sub

Ohhh... one obstacle....

I have more than 1 file begining with teh same name.
E.g "C:\Tool" folder name
"abcd lerning.xls" & "abcde teaching.xls" are two files at the above location.

Can we have a macro to open both the files on one click?

Plzzz help...

 

[Mac.ashish]

Welcome to the forums!

Perhaps:

Dim fPath As String
Dim fName As String
fPath = "C:\Excel Files"
fName = Dir(fPath & "\" & "*.xls")
Do While Len(fName) > 0
    If Left$(fName, 3) = "abc" Then
        Workbooks.Open (fPath & "\" & fName)
        Exit Do
    End If
Loop

Ohhh... one obstacle....

I have more than 1 file begining with teh same name.
E.g "C:\Tool" folder name
"abcd lerning.xls" & "abcde teaching.xls" are two files at the above location.

Can we have a macro to open both the files on one click?

Plzzz help...