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

Вход

Регистрация

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

 

= Мир MS Excel/Собрать информацию с нескольких файлов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Собрать информацию с нескольких файлов (Макросы/Sub)
Собрать информацию с нескольких файлов
Мурад Дата: Среда, 20.11.2019, 13:55 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 17 ±
Замечаний: 0% ±

Excel 2007
Добрый день, форумчане!
Подскажите, как собрать данные с нескольких файлов в один.
В частности, в приложенных файлах a1-a3, нужно собрать данные с диапазона A6:C18 и расположить их по порядку в файле a-svod (без пустых строк между записями).
По предложенному вами принципу я создам правила сбора для остальных показателей.
К сообщению приложен файл: a-svod.xlsx(10.9 Kb) · Documents.zip(26.0 Kb)
 
Ответить
СообщениеДобрый день, форумчане!
Подскажите, как собрать данные с нескольких файлов в один.
В частности, в приложенных файлах a1-a3, нужно собрать данные с диапазона A6:C18 и расположить их по порядку в файле a-svod (без пустых строк между записями).
По предложенному вами принципу я создам правила сбора для остальных показателей.

Автор - Мурад
Дата добавления - 20.11.2019 в 13:55
китин Дата: Среда, 20.11.2019, 14:09 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 5977
Репутация: 928 ±
Замечаний: 0% ±

Excel 2007;Excel 2010


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениевот тут

Автор - китин
Дата добавления - 20.11.2019 в 14:09
Мурад Дата: Среда, 20.11.2019, 14:17 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 17 ±
Замечаний: 0% ±

Excel 2007
Этот макрос не подходит, т.к. он собирает все данные с заданной ячейки и ниже, пока не встретит пустую строку. В моем варианте нужная информация может начинаться после пустых строк. Также данный макрос не удаляет пустые строки между записями.
 
Ответить
СообщениеЭтот макрос не подходит, т.к. он собирает все данные с заданной ячейки и ниже, пока не встретит пустую строку. В моем варианте нужная информация может начинаться после пустых строк. Также данный макрос не удаляет пустые строки между записями.

Автор - Мурад
Дата добавления - 20.11.2019 в 14:17
InExSu Дата: Четверг, 21.11.2019, 22:58 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 591
Репутация: 71 ±
Замечаний: 0% ±

Excel 2010
Привет!
По предложенному вами принципу я создам




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



Автор - InExSu
Дата добавления - 21.11.2019 в 22:58
Мурад Дата: Понедельник, 25.11.2019, 17:27 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 17 ±
Замечаний: 0% ±

Excel 2007
InExSu, вставил код макроса. Но он почему-то в книге макросов не отображается. Зато появилась пользовательская функция "Строка_свободная". Правда, я не пойму, как эта функция поможет собрать данные с разных файлов :/
 
Ответить
СообщениеInExSu, вставил код макроса. Но он почему-то в книге макросов не отображается. Зато появилась пользовательская функция "Строка_свободная". Правда, я не пойму, как эта функция поможет собрать данные с разных файлов :/

Автор - Мурад
Дата добавления - 25.11.2019 в 17:27
InExSu Дата: Понедельник, 25.11.2019, 18:46 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 591
Репутация: 71 ±
Замечаний: 0% ±

Excel 2010
Привет!
Пример вызова. Не проверял.
[vba]
Код
Sub a_RUN()
  Файлы_Список_Диапазон _
    a1_File_Path_Full_List, "A6:C18"
End Sub

Function a1_File_Path_Full_List() _
  As Variant
  ' например
  a1_File_Path_Full_List = Array( _
    "c:\tmp\1.xls", _
    "c:\tmp\2.xls")
End Function
[/vba]


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
Пример вызова. Не проверял.
[vba]
Код
Sub a_RUN()
  Файлы_Список_Диапазон _
    a1_File_Path_Full_List, "A6:C18"
End Sub

Function a1_File_Path_Full_List() _
  As Variant
  ' например
  a1_File_Path_Full_List = Array( _
    "c:\tmp\1.xls", _
    "c:\tmp\2.xls")
End Function
[/vba]

Автор - InExSu
Дата добавления - 25.11.2019 в 18:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Собрать информацию с нескольких файлов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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