Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.06.2017, 12:22   #1
Dimitriusik
Пользователь
 
Регистрация: 02.06.2017
Сообщений: 29
По умолчанию Нужно обработать одним макросом большое количество файлов .

В каталоге С:/Raports/ находится большое количество однотипных файлов xlsx и имеется макрос "школа" в личной книге макросов. Нужен такой макрос который бы открывыл каждый файл из этого каталога, выполнил макрос "школа" и закрыл с сохранением. Не представляю даже как такое написать.. помогите плиз(
Dimitriusik вне форума Ответить с цитированием
Старый 03.06.2017, 13:20   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
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
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 03.06.2017, 13:38   #3
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

А почему бы макрос "Школа" не запускать во время создания множества файлов в папке? те файлы ведь макросом создаются
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 04.06.2017, 21:52   #4
Dimitriusik
Пользователь
 
Регистрация: 02.06.2017
Сообщений: 29
По умолчанию

Цитата:
Сообщение от 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
Dimitriusik вне форума Ответить с цитированием
Старый 04.06.2017, 22:20   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Потому что Игорь предположил что школе нужно передавать файл, а я предположу что не надо
Поставьте в той строке апостроф перед вторым wb.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 04.06.2017, 23:06   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

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

Последний раз редактировалось IgorGO; 04.06.2017 в 23:09.
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создать несколько файлов одним макросом horpenst Microsoft Office Excel 6 25.12.2014 12:07
открытие нескольких книг одним макросом и закрытие книг другим макросом kursant95 Microsoft Office Excel 6 27.01.2011 16:54
большое количество переменных Oooleg Microsoft Office Excel 3 01.10.2009 16:58
Запустить несколько макросов в одним макросом Neo007 Microsoft Office Excel 2 16.01.2009 15:17
Excel. большое количество Diagramm alexvic Microsoft Office Excel 3 13.02.2008 14:40