Macro to loop through all sub-directories

Hi,

I’ve created a macro that loops through xlsm files in a folder, takes certain information from certain cells and collates it into a “summary” spreadsheet. See code below:

Please Login or Register  to view this content.

What I am trying to do now is create a macro that will also search in any sub-directories within that folder. So for example the code above will just look in the folder “Documents” while I want it to go into Documents\rev1, or Documents\rev1\option a. I have two macros that I am trying to make this work first is this one:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

The code just hangs. Any help would be greatly appreciated.

Thanks

Hi !

Originally Posted by cpeck91

What I am trying to do now is create a macro that will also search in any sub-directories within that folder.

Using only Dir VBA function that needs a recursive procedure as you can see here …

Hi,

Thanks for your reply, I use the following code

Please Login or Register  to view this content.

It won't let me run it if, it doesn't recognise it as a macro. Unless I delete "Folder" out of the Sub DoFolder(Folder), then it will return an error.

Thanks

As the Sub codeline must be the first line of the procedure like you can check in VBA inner help …

Thanks for this, so this will save all the files into one location?

Oh okay so it outputs the file paths of all the files then I can run my code to open each one of these, get the data and then close. by using a for loop?

I use this

Please Login or Register  to view this content.