Макрос для сбора данных из разных книг

Дата: Среда, 12.10.2016, 15:31 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Прошу помощи, есть папка, в которой я собираю отчетность, шапка единая, кол-во столбцов одинаковое, кол-во строк разное. Формат отчета единый.
Можно как нибудь макросом перебрать все книги эксель в папке (их около 60, кол-во файлов в папке может меняться) и свести все в один отчет? шапка отчета и пример того, из чего он собирается прилагаю.
Заранее благодарю

P.S.: файлы, из которых нужно брать данные для отчета запаролены, пароль ASG2016

К сообщению приложен файл: 6386412.rar (57.8 Kb)

Сообщение отредактировал Beerdrinker - Среда, 12.10.2016, 15:40

Дата: Среда, 12.10.2016, 15:39 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Посмотрите вот здесь
http://excelvba.ru/code/combinefiles
или здесь
http://www.excel-vba.ru/chto-um....li-knig

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Среда, 12.10.2016, 15:43 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Пробовал этим макросом - не работает, выдает тут ошибку InvoiceFolder$ = GetFolder

Дата: Среда, 12.10.2016, 15:45 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

А Вы видели вот это там сверху написано?

Цитата

Для работы этого макроса, помимо него самого, вам понадобится добавить в свой файл:
функцию FilenamesCollection для получения списка файлов в папке
функцию GetFolder для вывода диалогового окна выбора папки с запоминанием выбранной папки
прогресс-бар для отображения процесса обработки файлов (модуль класса и форму)
Если при тестировании макроса у вас возникает ошибка, что не найдена та или иная функция,
— проверьте, все ли необходимые компоненты (которые перечислены выше) вы добавили в свой файл.

Там внизу ссылка на файл. Скачайте его, в нем уже все нужное собрано

Дата: Среда, 12.10.2016, 15:56 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

А в личку вам можно написать? интересует платная помощь, сам разобраться не могу

Сообщение отредактировал Beerdrinker - Среда, 12.10.2016, 15:57

Дата: Среда, 12.10.2016, 16:01 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Тогда я переношу тему во "Фриланс"?
Там можно и в личку, и на почту.

Дата: Среда, 12.10.2016, 16:06 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

ага

Дата: Среда, 12.10.2016, 16:08 | Сообщение № 8

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Угу.
Теперь можно и в личку

stjerrymouse

Дата: Четверг, 13.10.2016, 17:58 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 1 ±

Замечаний: 20% ±

Excel 2013

Добрый день, написал личным сообщением.

Дата: Четверг, 13.10.2016, 18:03 | Сообщение № 10

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Кому и что?

stjerrymouse

Дата: Пятница, 14.10.2016, 10:33 | Сообщение № 11

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 1 ±

Замечаний: 20% ±

Excel 2013

Добрый день, уважаемый модератор. Написал Beerdrinker с предложением составить нужный макро для консолидации информации из книг в единый файл с возможными опциями. Удалено. Ответа пока нет.
Спасибо.

Pelena

Дата: Пятница, 14.10.2016, 11:01 | Сообщение № 12

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

stjerrymouse, рано Вам ещё фрилансить на форуме. Читайте Правила этой ветки

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816