Loop for Folder count

[mohan.r1980]

Hello Friends,

I have a "Main" Folder. In this folder there are sub Folders i.e. 1, 2, 3, 4, 5,.......
in each sub folders there are excel files which i want to open and save as a challen No. which is fix sheet1>range("A1").value of each excel file

i just want to know how can i set the loop for each sub folders that i can open the excel file

Please suggest me

[Trebor76]

Hi there,

Try this where the full path (i.e. directory and filename) for each Excel file is returned to a message box (adapt to suit):

Please Login or Register  to view this content.

HTH

Robert

[mohan.r1980]

Hello Trebor76

How would i open each excel from sub folders??
i tried your code like this

Please Login or Register  to view this content.

Pls suggest me

[Trebor76]

Your code works for me

[abousetta]

This should give you some ideas on how to loop through subforlders:

Please Login or Register  to view this content.

abousetta

[mohan.r1980]

No Friends,
I can't get the idea. its not working
above Trebor76 solution looking fine but not working

Please suggest

[Trebor76]

I can't suggest anything as it works for me? If you use this statement...

Please Login or Register  to view this content.

...does it return the full path (directory and filename) of each file to be opened?

Robert

[mohan.r1980]

Hello Trebor76

I seen all the way but not working
here i attached sample file situation which want
Please find the attached file

[Trebor76]

It's because all the files have the same name - you can't have this in the same session of Excel.

Change the file names (inclusing the file from where you're running the code) and then see how this slightly amended code goes:

Please Login or Register  to view this content.

Robert

[mohan.r1980]

hello Trebor76
there are same file name thats why we make subfolders
and i also try to change the file name and then run your code but problem is same

[Trebor76]

The following includes an error trap routine - see if it sheds any more insight as to what is going wrong:

Please Login or Register  to view this content.

You should also unselect the all cells option on Sheet1 of the main workbook.

Robert