Импорт данных из разных книг в один массив

Пользователь

Сообщений: 139 Регистрация: 01.01.1970

04.03.2014 18:16:18

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

Описываю задачу на конкретном примере:
Файл Итог - то, что должно получится
Файл 9000138 - импортируем массив с листа (кстати, условие, что каждый отдельный файл будет иметь 1 лист) игнорируя первую строку
Файл 9000137 - импортируем массив с листа игнорируя первую строку и вставляя данные под иже имеющиеся в основном файле
Файлы 9000138 и 9000137 должны располагаться в одной директории (например, C:\), а файл Итог при этом - в любом месте.

Прикрепленные файлы

9000137.xls (26 КБ)
Итог.xls (26.5 КБ)
9000138.xls (26 КБ)

Hugo

Пользователь

Сообщений: 23800 Регистрация: 22.12.2012

04.03.2014 18:19:12

Да сторона ведь одна - в цикле перебираем файлы, в каждом копируем данные, в сводном ищем первую пустую строку, туда вставляем скопированное.
Таких макросов тут было море. Может кто захочет лишний раз потренироваться...
Файлы не смотрел.

P.S. Можно не искать пустую строку, если всегда собираем заново - просто запоминаем сколько строк копировали :)

Изменено: Hugo - 04.03.2014 18:21:42

iba2004

Пользователь

Сообщений: 1034 Регистрация: 22.12.2012

04.03.2014 18:21:26

Виталий Рыбченко,

у меня есть похожая наработка, в ней из всех открытых фалов выбираются файлы по маске, для Вашего случая это 90001??.xls и далее из них данные переносятся в один файл, но для конкретного случая нужно будет приложить дополнительно усилия. Пригодится? Сможете сами "допилить"?
Извините, смогу только поздно вечером сесть за комп. Сейчас уезжаю.

Изменено: iba2004 - 04.03.2014 18:27:31

Виталий Рыбченко

Пользователь

Сообщений: 139 Регистрация: 01.01.1970

04.03.2014 18:27:38

Цитата
Hugo пишет: Таких макросов тут было море.

Случайно нет под рукой ссылок на подобные темы?

К сожалению с циклами пока не дружу.
Но направление понял, спасибо.

Hugo Пользователь Сообщений: 23800 Регистрация: 22.12.2012	#5 04.03.2014 18:30:32 Так вот выше заманчивое предложение Берите, переделывайте. Или мы поможем. А ссылки не помню, искать нужно.

Пользователь

Сообщений: 6111 Регистрация: 21.12.2012

Win 10, MSO 2013 SP1

04.03.2014 18:38:27

Цитата
Виталий Рыбченко пишет: но поиски не увенчались успехами...

Что только не придумают для оправдания...
А надстройка не подойдет - в ней, если что, условия довернуть проще будет?!
Вариантик - среди десятков других -http://www.rondebruin.nl/win/addins/rdbmerge.htm ...

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Виталий Рыбченко

Пользователь

Сообщений: 139 Регистрация: 01.01.1970

04.03.2014 18:42:23

Цитата
iba2004 пишет: у меня есть похожая наработка

Цитата
Z пишет: Что только не придумают для оправдания...

Всем спасибо, не так искал - нашел аналогичный запрос на форуме (http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=3268)

Допилю под себя.

Kuzmich Пользователь Сообщений: 8050 Регистрация: 21.12.2012	#8 04.03.2014 19:43:21 Пилите, Виталий, пилите Прикрепленные файлы Импорт данных из разных книг в один массив.rar (26.48 КБ)

Игорь

Пользователь

Сообщений: 3679 Регистрация: 23.12.2012

04.03.2014 21:47:50

Если файлы по структуре одинаковые (как в вашем примере) - то все просто,
у меня на сайте есть готовый макрос:
http://excelvba.ru/code/CombineFiles

Если же файлы разнотипные (порядок столбцов отличается, требуются разные хитрые обработки данных),
- то на этот случай есть мощная программа: http://excelvba.ru/programmes/Unification

iba2004 Пользователь Сообщений: 1034 Регистрация: 22.12.2012	#10 04.03.2014 23:20:48 Виталий, если Вы решите проблему, черканите, плиз. Я пойму, что необходимости в моём коде у Вас нет. Если понадобится, то тоже отпишите, я выложу файл. Удачи!!!