[help] macro to open several folders

Hi everyone, I need a macro that Open a speciefic directory that has several subfolders in it, open each subfolder, open all files, run a speciefic macro that I have, close the file, leave and do it on the next subfolder.

It's something like this:

> open speciefic directory "P:\CONTROLADORIA\FLUXOS EM ANDAMENTO"
> open first subfolder in "PROJETO X1"
> open first file in folder "PROJETO - FLUXO - BRA.xlsm"
> run speciefic macro AJUS
> close file "PROJETO - FLUXO - BRA.xlsm"
> Loop on all files in subfolder "PROJETO X1"
> Close subfolder
> open next subfolder...
< Loop on all subfolder in directory "P:\CONTROLADORIA\FLUXOS EM ANDAMENTO"

That will help me so much!
I'd appreciate it a lot.

Thank you!

Goes Up!

Hello!

It works perfectly!!

I would like one more thing, is there a way to close the last file opened before openning the next one?

Thank you!!!
Best regards

Yeah, I saw that!
But the problem is: when I copy the data from the spread sheet opened, I paste it into a "mother spread sheet" and if I do "ActiveWorkbook.Close True", it will close my active window ("mother spread sheet") and not the file just opened.

Is there a way to do that?

Thanks!!

I'm sorry I didn't understand...could you exemplify?

Thanks a lot!

Sub REPETE()
    Sheets("DADOS DA VENDA").Select
    Range("A4").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Offset(-1, 0).Select
    Selection.Copy
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    B = Cells(4, 1).Value + 7
    Sheets("FLUXO DE CAIXA").Select
    Range(Cells(B, 1), Cells(B, 53)).Select
    Selection.ClearContents
    If Cells(8, 1).Value = "" Then
        Range("B7:AA7").Select
        Selection.Copy
        Else
        Range("D1:I1").Select
        Selection.Copy
        Range("Y7").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Range("X7").Select
        Selection.End(xlDown).Offset(0, 6).Select
            Range(Selection, Selection.End(xlUp)).Select
            Range(Selection, Selection.Offset(0, -5)).Select
            Selection.FillDown
        End If
    Range("B7:AD7").Select
End Sub

I've mixed the two subs.

Thank's HaHoBe.

Supose that the name o the sheet is "CSTEST", how the code sould be?
I've tried

Range("B7:AD" & Range("B" & Rows.Count).End(xlUp).Row).Copy ThisWorkbook.CSTEST.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

But nothing...

HaHoBe,

I just change de name, but it makes no difference to me.
I've tried again, but nothing, it's running error '9' subscript out of range.

I don't know if count, but I using excel 2013.

Dim strFile As String
    Dim objFSO, destRow As Long
    Dim mainFolder, mySubFolder
    Set wbmain = ThisWorkbook
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    mFolder = "P:\CONTROLADORIA\FLUXOS EM ANDAMENTO\"
    Set mainFolder = objFSO.GetFolder(mFolder)
    For Each mySubFolder In mainFolder.subfolders
    strFile = Dir(mySubFolder & "\*.xls*")
        Do While strFile <> ""
            Workbooks.Open mySubFolder & "\" & strFile, ReadOnly:=True
     REPETE   
    Range("B7:AD7").Select
    Range(Selection, Selection.End(xlDown)).Copy 
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.End(xlUp).Select
    Selection.End(xlDown).Offset(1, 0).Select
        Application.DisplayAlerts = False
        ActiveWindow.Close
        strFile = Dir
     Loop
   Next

Sub REPETE()
    Sheets("DADOS DA VENDA").Select
    Range("A4").Select
    Selection.End(xlDown).Select
    Selection.End(xlDown).Offset(-1, 0).Select
    Selection.Copy
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    B = Cells(4, 1).Value + 7
    Sheets("FLUXO DE CAIXA").Select
    Range(Cells(B, 1), Cells(B, 53)).Select
    Selection.ClearContents
    If Cells(8, 1).Value = "" Then
        Range("B7:AA7").Select
        Selection.Copy
        Else
        Range("D1:I1").Select
        Selection.Copy
        Range("Y7").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
        Range("X7").Select
        Selection.End(xlDown).Offset(0, 6).Select
            Range(Selection, Selection.End(xlUp)).Select
            Range(Selection, Selection.Offset(0, -5)).Select
            Selection.FillDown
        End If
    Range("B7:AD7").Select
End Sub

I have one spreadsheet named "CAIXA", that is where I consolidate all the data from each spreadsheet opened through the command "Workbooks.Open mySubFolder & "\" & strFile".
But before I close the workbook, I have to copy the information and paste it into the spreadsheet "CAIXA"!
Only after that, I may close the recent opened file.

I you have any doubt, please let me know!
Thank!!