VBA Макросы: Последовательное вытаскивание данных из коллекции и подстановка данных в другую процедуру.

[Rengame113]

У меня есть 2 процедуры.
1-ая процедура ищет файлы в папках и подпапках по определенному критерию и записывает их адрес  (C:\1234\zapros1.xls; C:\1234\zapros2.xls и т.д.) в коллекцию coll.
2–ая процедура выполняет манипуляции внутри Excel файла.
Вопрос.
Как сделать так, чтобы последовательно вытаскивать адреса из коллекции и производить манипуляции 2-ой процедурой с этими файлами.

[Администратор]

Макрос

Sub макрос()

    Dim cln As Collection
    Dim i As Long
   
    Set cln = New Collection
    cln.Add Item:="C:\1234\zapros1.xls"
    cln.Add Item:="C:\1234\zapros2.xls"
   
    For i = 1 To cln.Count
        Процедура cln(i)
    Next i

End Sub

Private Sub Процедура(FN As String)

    ' В аргументе FN находится полное имя (путь + имя) файла.
        ' Для примера работы с аргументом, выводим данные из аргумента в View - Immediate Window.
    Debug.Print FN

End Sub

[свернуть]

[Rengame113]

спасибо