Excel VBA code needed

[naveenhs5]

Hello,
There are three excel files in a folder which I want to open using VBA code.
Thing is that three files have a different file name, only common word is "....data with...xls", "....data without....xls"
Request your help on this...

Thanks,

 

[GTO]

Try:

Option Explicit
    
Sub exa()
Dim Path As String, Pattern As String, sFullName As String
Dim wb As Workbook
    
    '// Supply or alter path to suit.   //
    Path = "G:\2011\2011-03-14\"
    Pattern = "*data with*.xls"
    
    sFullName = Dir(Path & Pattern)
    
    Do While Not sFullName = vbNullString
        Set wb = Workbooks.Open(sFullName)
        MsgBox "do something with " & wb.Name
        wb.Close False
        
        sFullName = Dir
    Loop
End Sub

 

[naveenhs5]

Hello,

Thank u very much for ur time...

Briefly...there are 3 files namely APS Queues.xls and IPS _ without_SAP_Document_Number.xls and IPS _with_SAP_Doc_Number.xls

Your code works perfectly and opens the file "APS Queues.xls", but gives me a run time error 1004 for other two files saying "File does not exist or check the location" (after amending the file name accordingly in the code..eg:*with*.xls and *without.xls*). But the file name and path is correct

Pls help

 

[naveenhs5]

Hello,

Thank u very much for ur time...

Briefly...there are 3 files namely APS Queues.xls and IPS _ without_SAP_Document_Number.xls and IPS _with_SAP_Doc_Number.xls

Your code works perfectly and opens the file "APS Queues.xls", but gives me a run time error 1004 for other two files saying "File does not exist or check the location" (after amending the file name accordingly in the code..eg:*with*.xls and *without.xls*). But the file name and path is correct

Pls help
<!-- / message -->

 

[GTO]

Hi,

I am not understanding. My code should open the workbook if 'data with' is in the filename. It should not open 'APS Queues.xls'. If you altered the code, can you show us the current code and actual workbook names to open?

 

[naveenhs5]

There was a minor error which i corrected...its working fine...
many thanks for all your help!