Нужно обработать одним макросом большое количество файлов .

[Dimitriusik]

В каталоге С:/Raports/ находится большое количество однотипных файлов xlsx и имеется макрос "школа" в личной книге макросов. Нужен такой макрос который бы открывыл каждый файл из этого каталога, выполнил макрос "школа" и закрыл с сохранением. Не представляю даже как такое написать.. помогите плиз(

[IgorGO]

Sub DoLoop
  dim fn$, wb as workbook
  const pt$ = "С:\Raports\"
  fn = dir(pt & "*.xlsx")
  do while fn <> ""
    set wb = workbooks.open(fn):  школа wb  
    wb.close false:  fn = dir
  loop
end sub

[Aleksandr H.]

А почему бы макрос "Школа" не запускать во время создания множества файлов в папке? те файлы ведь макросом создаются

[Dimitriusik]

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

Sub DoLoop
  dim fn$, wb as workbook
  const pt$ = "С:\Raports\"
  fn = dir(pt & "*.xlsx")
  do while fn <> ""
    set wb = workbooks.open(fn):  школа wb  
    wb.close false:  fn = dir
  loop
end sub

Почему то выдает ошибку на слове школа
wrong number of arguments or invalid property assignment

[Hugo121]

Потому что Игорь предположил что школе нужно передавать файл, а я предположу что не надо
Поставьте в той строке апостроф перед вторым wb.

[IgorGO]

Почему то выдает ошибку на слове школа

извините за прямоту, но вопрос тупой и ответ тупой
зададите корректный вопрос - получите корректный ответ
а пока работайте с тем, что есть
еще раз извините, я не хочу ни кого обижать, но ситуация именно такова

возможно, вопрос нормальный, в таком случае скоро повалят точные ответы... ждите