Perform an action in each sub-folder independently

Hello,

I have been trying to come up with a solution for the below problem with no success so far.


What I would like to do is the following:


- Look in the all the subfolders of a main folder

- Essentially treat each subfolder individually - if a subfolder contains workbooks, create a new workbook in the subfolder, copy the first sheet of all the workbooks in the newly created workbook, and save the new workbook the same as name as the subfolder's name. Then, if posibble, delete the rest of the workbooks and keep only the newly created workbook.


I have asked for help in a previous thread here which relates somehow to the above problem:


http://www.excelforum.com/excel-prog...book-name.html


User tigeravatar helped me with an amazing macro that did exactly what I wanted. I have been trying to modify his solution to perform the additional action mentioned above. I have managed to come up with a partial "solution" by combining ta's macro with a different macro I have found over at the mrexcel forum. This turned out to be a disaster as in the end it requires for most of the steps to be essentially performed manually.

If anyone could help I would really appreciate it.

Thank you

tigeravatar, that's simply AMAZING. It works absolutely fantastic!!! I ran the macro and haven't encountered no issues whatsoever! The only issue is that I do get completely lost trying to figure out the GetAllFiles code
Thank you so much for your help, it's perfect and will save me so much time. A million thanks for your help!

Hi ta,

I ran into another hurdle that I am having difficulty solving as its beyond my editing skills. I would like to import modules into each workbook in the subfolders. I was looking to either import all the modules from another workbook with (had no success) and also tried to import all the modules from a folder as I thought this would be easier to achieve, but again haven't managed to do so.

I found these macros which I tried to manipulate

Please Login or Register  to view this content.

HTML Code: 

I have managed to edit the previous macros you've helped me to perform more actions in the workbooks in the subfolders but this one I can't figure out.

Thank you for everything

Hi ta,

Thank you very much for getting back to me, I tried the code above but encountered a slight of a hiccup. After a few seconds of running it, I receive an Out of memory error. The macro copies one of the modules from the folder where all the modules reside (approximately 15) and imports the same module until the Out of memory error pops up ( a little more than 5000 times). The folder contains around 15 modules. I used the correct GetAllFiles subroutine.

Thank you for all the help!

Thank you ta! With people such as yourself helping here on the forum, I see how testing all the code you write would not be practical.

The code works just perfect by the way.

In case this might be of help to any other members, if you would like to:

Copy all the modules / macros that reside in a folder.
Paste / Import the modules in all of the workbooks, in all of the subfolders within a main folder.
You can use the following:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I really appreciate all the help. Thank you once again for everything!