У меня есть 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
спасибо