MACRO only copies six files

Hello,

I got this code fromm mslynng (the original posts: http://excel.bigresource.com/Track/excel-8Zjqhjv0/) and I have to say I love this code a lot.. problem is that it only seems to copy just six xls files.. I have a 60+ xls files both containing pdf and excel. But the code can ignore the pdf.. i just need the excel. Anyway, I tried to change the code but, obviously, nothing works.. hope your help here.

Thanks!

here's the code:

Please Login or Register  to view this content.

Hi eastydie
The code was stopping when it reached thisworkbook
try...

Please Login or Register  to view this content.

Hi, sorry it took me so long.. I got sick yesterday. It's pretty warm here in Manila Got me a free migraine..

Thanks pike! That made the trick! I'm confused with

Please Login or Register  to view this content.

and the

Please Login or Register  to view this content.

part. If it is not too trouble, do you mind shedding some light on the two? But it's okay if you are too busy. This is enough for me Thanks again!

Hi eastydie

Please Login or Register  to view this content.

are the similar and are use to iterate over all files in a folder
The difference is if you use the () which means you must use the objects methods/syntax

The if not statement "this workbook" works opening and copying workbooks ( because the statment is True) untill it loops and selects "this workbook", so the first part of the if statement is now false . Using "Else: Filename = "" is the trigger/default to exit the loop. so its not needed

Dir is the same as Dir() and can only be used after you have used Dir("some_path") or Dir("") to set up the search (and only until the function returns "" - thereafter you have to specify arguments again).
The Dir - or Dir() - then simply repeats and returns the next matching file or folder.