Macro searching subfolders for files

I have gotten some help with the code. It now searches for folders of a specific name type. ex: TestCell_20**. The problem I am having now is the second script does not open and copy the files into the main workbook. The new code is below. Any help is greatly appreciated.

Please Login or Register  to view this content.

The first subroutine should put each matching folder in an array or collection. Then loop through the array or collection, calling open_files() for each folder. If DefaultDir & "TestCell_20??" contains files other than folders then you will need to check whether the file name returned is a folder, using GetAttr.

It's probably best to rename the subroutines as their names are almost identical, yet they do different things.

Okay, I think I understand what you are saying. Defaultdir does contain the folders named TestCell_20??. I only need to check folders with this name type. However TestCell_20?? does have other files inside. I only need to open files that are named CellDaily_Stand20*.dat where the last two digits match the TestCell_20?? folders last two digits and then move them to the main workbook as each file is opened. How can I get the Array to work as you mentioned? Thank you.

Try this:

Please Login or Register  to view this content.

THANK YOU VERY MUCH!!! This code is working like a charm. You are way cool

I have one last request for this code. Can a line be added to the script to make the main sheet (the first worksheet) to be the active sheet once all worksheets have been copied?

Help yourself by doing it manually with the Macro Recorder and insert the code generated, or call the new macro itself, where appropriate.

Thank you very much