Страницы: 1
RSS
Объединить файлы excel расположенные в разных директориях макросом, Объединение файлов
 
Доброго времени суток! Очень нужна помощь)))
нужен макрос, который будет соединять файлы excel в один, но есть нюанс - файлы все однотипные, но находятся в разных папках. Есть макрос который объединяет несколько файлов, но их все надо указать, т.е. они должны быть в одной папке все, а мне нужно чтобы я указал директорию и макрос слил все найденные файлы excel в один. Спасибо заранее!)
 
попробуйте этот макрос
http://excelvba.ru/code/combinefiles

только замените строку
Код
 ' загружаем список файлов по маске имени файла
    Set coll = FilenamesCollection(InvoiceFolder$, "Заявка №*от*.xls*", 1)

на
Цитата
' загружаем список файлов по маске имени файла
   Set coll = FilenamesCollection(InvoiceFolder$, "*.xls*", 5)
число 5 вместо 1 - это глубина вложенности в папках, которую макрос будет просматривать
Страницы: 1
Читают тему
Наверх