как в указанном каталоге перечислить все эксель файлы

[gregory1b]

как в каталоге "C:\работа\недели\неделя 43\" проверить наличие всех эксель файлов с окончанием имени "_fin.xls" , открыть их по очереди, обработать и закрыть (скопировать 5 ячеек из каждого файла в одну книгу)??

и еще в следующем коде загружается "dva", но переменные пусты???
код:
sub odin()

a=2
b=3

dva 'run
a=6
b=8
dva 'run
end sub
'_____________
sub dva()
y=a+b
msgbox(y)
end sub

(это пример, на самом деле код DVA намного больше)

[R Dmitry]

Сообщение от gregory1b

как в каталоге "C:\работа\недели\неделя 43\" проверить наличие всех эксель файлов с окончанием имени "_fin.xls" , открыть их по очереди, обработать и закрыть (скопировать 5 ячеек из каждого файла в одну книгу)??

и еще в следующем коде загружается "dva", но переменные пусты???
код:
sub odin()

a=2
b=3

dva 'run
a=6
b=8
dva 'run
end sub
'_____________
sub dva()
y=a+b
msgbox(y)
end sub

(это пример, на самом деле код DVA намного больше)

про сдедующее......
надо объявить нормально или Public или Const смотря что надо

[alex77755]

Переменные в данном случае должны быть глобальными.
Просто в модуле поставь:

Public a
Public b

[gregory1b]

Сообщение от R Dmitry

про сдедующее......
надо объявить нормально или Public или Const смотря что надо

А с первым что? Все файлы что нужно имеют такое имя
Продaжа_115_сегмента_fin.xls
Продaжа_180_сегмента_fin.xls
Продaжа_160_сегмента_fin.xls
Продaжа_243_сегмента_fin.xls
все 3-х значные номера?
с помощью чего можно цикл сделать
for 111 to 999
next

[EducatedFool]

Используйте функцию FilenamesCollection

Set coll = FilenamesCollection("C:\работа\недели\неделя 43\", "_fin.xls")