Консолидация всех файлов в папке - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/Консолидация всех файлов в папке - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Консолидация всех файлов в папке (Макросы/Sub)

Консолидация всех файлов в папке

Дата: Вторник, 17.07.2018, 18:37 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

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

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

Excel 2007

Добрый день. В excel есть функция консолидация, но так как файлов много, вручную это долго делать. Я нашел похожий макрос под эту задачу, но не получается сделать правильное объединение данных, помогите решить данную проблему. Структура во всех документов одинаковая.

К сообщению приложен файл: prst.7z (15.5 Kb)

я знаю что ничего не знаю, но другие не знают и этого

Ответить

Дата: Среда, 18.07.2018, 01:45 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Привет!
Универсальный сборщик
' Текущий каталог, все файлы Excel, все листы _
собрать на один лист

К сообщению приложен файл: __-__Excel-____.xlsb (21.5 Kb)

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Дата: Среда, 18.07.2018, 08:07 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

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

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

Excel 2007

InExSu, Спасибо. Добавил к вашему макросу еще один макрос, и все получилось, что хотел сделать.

К сообщению приложен файл: -_.xlsb (22.3 Kb)

я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Среда, 18.07.2018, 08:11

Ответить

Дата: Среда, 18.07.2018, 08:34 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата ASWP, 18.07.2018 в 08:07, в сообщении № 3 ()

все получилось

Не, не всё.
Пожалуйста, замените строку
[vba]

Код

ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest), 1)

[/vba]
на
[vba]

Код

ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest) + 1, 1)

[/vba]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Дата: Среда, 18.07.2018, 19:06 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

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

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

Excel 2007

Цитата InExSu, 18.07.2018 в 08:34, в сообщении № 4 ()

Не, не всё.
Пожалуйста, замените строку

Да, точно, два значения не добавились, а почему так произошло?

я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Среда, 18.07.2018, 19:49

Ответить

Дата: Среда, 18.07.2018, 20:55 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 648

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

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

Excel 2010, 365

Цитата ASWP, 18.07.2018 в 19:06, в сообщении № 5 ()

почему так произошло?

Потому что VBA, обычно, делает то, что его просят

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac

Ответить

Дата: Среда, 18.07.2018, 22:36 | Сообщение № 7

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 183

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

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

Excel 2007

InExSu, Я понял в чем была ошибка, не сразу, но понял

Спасибо за то что заметили ошибку, а то я, что то забыл сам проверить, подумал что все будет отлично работать)

я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Среда, 18.07.2018, 22:37

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Консолидация всех файлов в папке (Макросы/Sub)

Страница 1 из 1
1

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!