Собрать информацию с нескольких файлов

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

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

Собрать информацию с нескольких файлов (Макросы/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)

Ответить

китин

Дата: Среда, 20.11.2019, 14:09 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

вот тут

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Мурад

Дата: Среда, 20.11.2019, 14:17 | Сообщение № 3

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

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

Сообщений: 513

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

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

Excel 2007

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

Ответить

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

Ответить

Мурад

Дата: Понедельник, 25.11.2019, 17:27 | Сообщение № 5

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

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

Сообщений: 513

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

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

Excel 2007

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

Ответить

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

Ответить

Собрать информацию с нескольких файлов (Макросы/Sub)

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