Страницы: 1
RSS
Три таблицы из разных файлов Excel в одну для руководителя
 
Доброго времени суток.
В вопросах написания макросов и создания сводных таблиц, я новичок, поэтому прошу:
Задача - есть три файла с идентичными таблицами (одинаковые столбцы, но разное количество строк), которые редактируют три разных пользователя на одном диске но в разных папках. Требуется создать четвертый итоговый документ (редактироваться не будет), в который автоматом переносились бы таблицы из остальных трех файлов, одна за другой. То есть, просто копировались бы все данные по очереди из трех других файлов. При этом есть одно пожелание: 1. Необходимо, чтобы при копировании сохранялось и исходное форматирование (ширина столбцов, высота строк, цвета ячеек) и при возможности гиперссылки.
Подскажите, как лучше это реализовать? Если только с помощью написания макроса, то я бы хотел увидеть пример подобного макроса, который будет просматривать и копировать все заполненные строки одного файла, затем второго и так далее.

Пример таблицы во вложении.

Заранее благодарю!
 
Цитата
написал:
одинаковые столбцы, но разное количество строк), которые редактируют три разных пользователя на одном диске но в разных папках. Требуется создать четвертый итоговый документ (редактироваться не будет), в который автоматом переносились бы таблицы из остальных трех файлов, одна за другой.
Называется Консолидация данных ну или через PQ - погуглите, справитесь!
Изменено: Sanim - 13.02.2024 22:28:54
 
Цитата
написал:
Доброго времени суток. В вопросах написания макросов и создания сводных таблиц
Файл с кодом VBA во вложении.

Ссылки на файлы укажите в ячеqках А2:A4.
Итоговый файл сохраниться с именем Сводная книга.xlsx, там же где будет лежать прикрепленный файл "Запуск"
Изменено: Chegga - 15.02.2024 22:18:19
....Если надо объяснять, то не надо объяснять!
Для связи https://t.me/c4egga
 
Chegga, С какой целью Вы процитировали ВСЕ стартовое сообщение? Исправьте свое сообщение
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
Цитата
написал:
Ссылки на файлы укажите в ячеqках А2:A4.Итоговый файл сохраниться с именем Сводная книга.xlsx, там же где будет лежать прикрепленный файл "Запуск"
Chegga, сегодня запустил программу на работе и обнаружил ошибку после которой данные из ячеек исчезают.
Помогите пожалуйста победить эту ошибку.
 
 
Алексей Бабаев, добрый день.

Немного поправил макрос от Chegga, чтобы не выдавались предупреждения в ходе работы.
Код
Sub test()Dim arr() As Variant
Application.DisplayAlerts = False
...
Application.DisplayAlerts = True
End Sub
 
Цитата
написал:
Немного поправил макрос от  Chegga , чтобы не выдавались предупреждения в ходе работы.
andypetr, добрый вечер!
Благодарю за отклик!
К сожалению с предупреждением ушли и данные из ячеек.
Не могу понять в чем дело? На домашнем компьютере все работает идеально, а на работе хромает(((
Единственное, что я меняю это:
Else
       eRow = Workbooks(Dir(arr(i))).Worksheets("Снабжение").Cells(Rows.Count, 1).End(xlUp).Row
           Workbooks(Dir(arr(i))).Worksheets("Снабжение").Range("A2:J" & eRow).Copy                            ("A2:J" & eRow) на ("A3:K" & eRow)
           Workbooks(NameBook & ".xlsx").Worksheets("Сводная Таблица").Activate
       eRow = Workbooks(NameBook & ".xlsx").Worksheets("Сводная Таблица").Cells(Rows.Count, 1).End(xlUp).Row
           Range("A" & eRow + 1).Select: ActiveSheet.Paste
Изменено: Алексей Бабаев - 15.02.2024 21:32:20
 
Фото, к сожалению, даёт мало информации.
Вижу, что по сравнению с первым выложенным файлом ("С макросом создание папок и ссылками на папки.xlsm"), теперь:
  • Данные начинаются с 3-й строки.
  • Добавился столбец.
  • Появились имена (например, "Адреса" - как на фото с вопросом).
Попробуйте ещё такой вариант.
В числе прочего, формулы заменяются значениями.
Если это не надо делать - закомментируйте 2 пары строк под комментариями:
Код
        ' Убираем формулы из скопированного (
        Range("A3:K" & EndRow).Copy
        Range("A3:K" & EndRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        ')

Если всё равно не будет работать - нужен будет новый файл-пример.
Изменено: andypetr - 16.02.2024 08:53:07
 
Цитата
написал:
Если всё равно не будет работать - нужен будет новый файл-пример.
andypetr, доброго Вам времени суток!
Все работает как часы кроме ссылок в папки но это, я думаю, что мы переживем.
Спасибо Вам за помощь!
 
Цитата
написал:
кроме ссылок в папки
Попробуйте проверить исходные файлы, потому, что в примере ссылок на папки не было в ячейках, были только символы ">>>>>>".
Если в исходных файлах, будут ссылки, они так же перенесутся в сводный документ.
....Если надо объяснять, то не надо объяснять!
Для связи https://t.me/c4egga
Страницы: 1
Наверх