Копирование из закрытой книги

[SAS888]

С помощью объекта FileSystemObject очень легко получить список подпапок, находящихся в указанной папке.
Следующий макрос просмотрит все подпапки в папке с файлом "Main" и данные из всех найденных ".csv" файлов поместит в обобщающий файл "Total", который должен быть с "Main" в одной папке. Количество подпапок и ".csv" файлов в подпапках может быть любым и иметь произвольное имя.

Sub Main()
    Dim myPath As String, myName As String, fso, tsW, sf As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set tsW = fso.OpenTextFile(ThisWorkbook.Path & "\Total.csv", 2, True)
    For Each sf In fso.GetFolder(ThisWorkbook.Path).SubFolders
        myName = Dir(ThisWorkbook.Path & "\" & sf.Name & "\" & "*.csv")
        Do While myName <> ""
            tsW.Write fso.OpenTextFile(ThisWorkbook.Path & "\" & sf.Name & "\" & myName, 1).ReadAll: myName = Dir
        Loop
    Next
    tsW.Close
End Sub

Пример во вложении.

[Maxx]

Сегодня внедрил все это в свою программу.

Отлично работает!

SAS888, спасибо Вам огромное за неоценимую помощь!!!