Opening All Excel Books In directory

[Atecuser1]

How do i Moidy this

Filename = Dir("C:\Documents and Settings\cotem\Desktop\" & "" & "*.xls", 0) 'looks only at Excel files
    While Filename <> ""
        If Left(Filename, 20) = "ATEC Acc Report - " Then
            Workbooks.Open ("C:\Documents and Settings\cotem\Desktop\" & Filename), False
            GoTo Part1
        End If
    Wend

To open all excel files in directory with the starting name of ATEC Acc Report?

Thanks

 

[erik.van.geit]

Hi,

assuming you picked this code from some thread, where somebody told it was working, but after you made some modifications it isn't working for you ...

your code is asking to find 20 characters in a string while there are only 18 specified - as far as I can see

If Left(Filename, 18) = "ATEC Acc Report - " Then

it would be safer to compare "lower case" for both strings, in case someone has written "Atec Acc Report - " or "ATEC ACC REPORT - " or some other combination ...

If LCase(Left(Filename, 18)) = Lcase("ATEC Acc Report - ") Then

getting further with this ?

kind regards,
Erik

EDIT: you have "GoTo Part1": (avoid GOTO !) what is this doing ? it will exit the loop at once