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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Собрать информацию с нескольких файлов (Макросы/Sub)
Собрать информацию с нескольких файлов
Мурад Дата: Среда, 20.11.2019, 13:55 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 513
Репутация: 18 ±
Замечаний: 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
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
вот тут

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

Excel 2007
Этот макрос не подходит, т.к. он собирает все данные с заданной ячейки и ниже, пока не встретит пустую строку. В моем варианте нужная информация может начинаться после пустых строк. Также данный макрос не удаляет пустые строки между записями.
 
Ответить
СообщениеЭтот макрос не подходит, т.к. он собирает все данные с заданной ячейки и ниже, пока не встретит пустую строку. В моем варианте нужная информация может начинаться после пустых строк. Также данный макрос не удаляет пустые строки между записями.
Автор - Мурад
Дата добавления - 20.11.2019 в 14:17
InExSu Дата: Четверг, 21.11.2019, 22:58 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
Цитата Мурад, 20.11.2019 в 13:55, в сообщении № 1 ()
По предложенному вами принципу я создам



Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
Цитата Мурад, 20.11.2019 в 13:55, в сообщении № 1 ()
По предложенному вами принципу я создам


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

Excel 2007
InExSu, вставил код макроса. Но он почему-то в книге макросов не отображается. Зато появилась пользовательская функция "Строка_свободная". Правда, я не пойму, как эта функция поможет собрать данные с разных файлов :/
 
Ответить
СообщениеInExSu, вставил код макроса. Но он почему-то в книге макросов не отображается. Зато появилась пользовательская функция "Строка_свободная". Правда, я не пойму, как эта функция поможет собрать данные с разных файлов :/
Автор - Мурад
Дата добавления - 25.11.2019 в 17:27
InExSu Дата: Понедельник, 25.11.2019, 18:46 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Привет!
Пример вызова. Не проверял.
[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]

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
СообщениеПривет!
Пример вызова. Не проверял.
[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-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!