Открытие по очереди файлов и работа с ними

[Hugo121]

Повторюсь - проверяйте имена полученной коллекции по Like или Select Case.

[LLIaMaH]

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

И сколько у тебя файлов всего? )
Воспользуйся командой select. Для разделения действий по каждому файлу, или тем же if.
Советую для каждого файла создать свою процедуру, а в основном цикле всего лишь вызывать нужную процедуру.

Файлов где-то 70 Так я и хочу черз If, но я не знаю как прописать - If Len(файл) = 0 Then (как прописать здесь переход к файлу 01.xls)
Я так понял проще будет прописать If Len(файл) = 0 Then Application.Run "Файл_01" и написать под каждый файл отдельный макрос и их по очереди запускать.

[tae1980]

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

Файлов где-то 70 Так я и хочу черз If, но я не знаю как прописать - If Len(файл) = 0 Then (как прописать здесь переход к файлу 01.xls)
Я так понял проще будет прописать If Len(файл) = 0 Then Application.Run "Файл_01" и написать под каждый файл отдельный макрос и их по очереди запускать.

Не "проще", а "правильнее".
Где-то так:

If Len(файл) > 0 then
   select case n
   case 1
      файл_01
   case 2
      файл_02
   case ...
      файл_...
   end select
end if

А еще "правильнее" разобраться с действиями над файлами и пробовать выделить общие (единые) действия. Опираясь на них попробовать создать один алгоритм работы со всеми файлами.

[LLIaMaH]

Всем спасибо. Все таки написал 70 макросов и прописал последовательность запусков, так даже лучьше, а то лепить 70 файлов в один макрос, потом что-то в нем искать и черт ногу сломит