Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Консолидация всех файлов в папке (Макросы/Sub)
Консолидация всех файлов в папке
ASWP Дата: Вторник, 17.07.2018, 18:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 122
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
Добрый день. В excel есть функция консолидация, но так как файлов много, вручную это долго делать. Я нашел похожий макрос под эту задачу, но не получается сделать правильное объединение данных, помогите решить данную проблему. Структура во всех документов одинаковая.
К сообщению приложен файл: prst.7z(15.5 Kb)


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

Автор - ASWP
Дата добавления - 17.07.2018 в 18:37
InExSu Дата: Среда, 18.07.2018, 01:45 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 400
Репутация: 50 ±
Замечаний: 20% ±

Excel 2010
Привет!
Универсальный сборщик
' Текущий каталог, все файлы Excel, все листы _
собрать на один лист
К сообщению приложен файл: __-__Excel-____.xlsb(21.5 Kb)


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
Универсальный сборщик
' Текущий каталог, все файлы Excel, все листы _
собрать на один лист

Автор - InExSu
Дата добавления - 18.07.2018 в 01:45
ASWP Дата: Среда, 18.07.2018, 08:07 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 122
Репутация: 19 ±
Замечаний: 0% ±

Excel 2007
InExSu, Спасибо. Добавил к вашему макросу еще один макрос, и все получилось, что хотел сделать.
К сообщению приложен файл: -_.xlsb(22.3 Kb)


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

Сообщение отредактировал ASWP - Среда, 18.07.2018, 08:11
 
Ответить
СообщениеInExSu, Спасибо. Добавил к вашему макросу еще один макрос, и все получилось, что хотел сделать.

Автор - ASWP
Дата добавления - 18.07.2018 в 08:07
InExSu Дата: Среда, 18.07.2018, 08:34 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 400
Репутация: 50 ±
Замечаний: 20% ±

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

Не, не всё.
Пожалуйста, замените строку
[vba]
Код
ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest), 1)
[/vba]
на
[vba]
Код
ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest) + 1, 1)
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
Сообщение
все получилось

Не, не всё.
Пожалуйста, замените строку
[vba]
Код
ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest), 1)
[/vba]
на
[vba]
Код
ws.UsedRange.Copy .Cells(Строка_Крайняя(ws_Dest) + 1, 1)
[/vba]

Автор - InExSu
Дата добавления - 18.07.2018 в 08:34
ASWP Дата: Среда, 18.07.2018, 19:06 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 122
Репутация: 19 ±
Замечаний: 0% ±

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

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


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

Сообщение отредактировал ASWP - Среда, 18.07.2018, 19:49
 
Ответить
Сообщение
Не, не всё.
Пожалуйста, замените строку

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

Автор - ASWP
Дата добавления - 18.07.2018 в 19:06
InExSu Дата: Среда, 18.07.2018, 20:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 400
Репутация: 50 ±
Замечаний: 20% ±

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

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


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
Сообщение
почему так произошло?

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

Автор - InExSu
Дата добавления - 18.07.2018 в 20:55
ASWP Дата: Среда, 18.07.2018, 22:36 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 122
Репутация: 19 ±
Замечаний: 0% ±

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


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

Сообщение отредактировал ASWP - Среда, 18.07.2018, 22:37
 
Ответить
СообщениеInExSu, Я понял в чем была ошибка, не сразу, но понял :D Спасибо за то что заметили ошибку, а то я, что то забыл сам проверить, подумал что все будет отлично работать)

Автор - ASWP
Дата добавления - 18.07.2018 в 22:36
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Консолидация всех файлов в папке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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