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

Вход

Регистрация

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

 

= Мир MS Excel/Консолидация в одной книге данных из других закрытых книг - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Консолидация в одной книге данных из других закрытых книг (Макросы/Sub)
Консолидация в одной книге данных из других закрытых книг
romkinss Дата: Вторник, 31.10.2017, 13:52 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброго дня, уважаемые.

Помогите справиться с задачей.

Дано:
В одной папке лежит несколько xlsx файлов, в каждом из которых есть однотипные данные в столбцах A и B (к примеру ФИО и Город). Нужно написать макрос, который скопирует данные из всех этих ЗАКРЫТЫХ файлов и консолидирует в одной таблице в тех же столбцах A и B, с той лишь разницей что в столбце C будет указано название Книги из которой была взята каждая конкретная строка.

Во вложении архив, где для примера предложены 3 книги - источника данных и 1 книга "Консолидация", куда должны собраться все данные. В этой книге для примера показаны уже собранные данные.

Понимаю, что подобных задач выложено не мало, но собрать по кусочкам из готовых вариантов требуемое не хватает опыта.
К сообщению приложен файл: 3074725.zip(94Kb)
 
Ответить
СообщениеДоброго дня, уважаемые.

Помогите справиться с задачей.

Дано:
В одной папке лежит несколько xlsx файлов, в каждом из которых есть однотипные данные в столбцах A и B (к примеру ФИО и Город). Нужно написать макрос, который скопирует данные из всех этих ЗАКРЫТЫХ файлов и консолидирует в одной таблице в тех же столбцах A и B, с той лишь разницей что в столбце C будет указано название Книги из которой была взята каждая конкретная строка.

Во вложении архив, где для примера предложены 3 книги - источника данных и 1 книга "Консолидация", куда должны собраться все данные. В этой книге для примера показаны уже собранные данные.

Понимаю, что подобных задач выложено не мало, но собрать по кусочкам из готовых вариантов требуемое не хватает опыта.

Автор - romkinss
Дата добавления - 31.10.2017 в 13:52
nilem Дата: Вторник, 31.10.2017, 16:52 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1324
Репутация: 470 ±
Замечаний: 0% ±

Excel 2013
romkinss, привет
работаете с MAC (не Windows)?


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеromkinss, привет
работаете с MAC (не Windows)?

Автор - nilem
Дата добавления - 31.10.2017 в 16:52
romkinss Дата: Вторник, 31.10.2017, 17:02 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem, привет! С МАС, а откуда вы знаете?)


Сообщение отредактировал romkinss - Вторник, 31.10.2017, 17:04
 
Ответить
Сообщениеnilem, привет! С МАС, а откуда вы знаете?)

Автор - romkinss
Дата добавления - 31.10.2017 в 17:02
nilem Дата: Вторник, 31.10.2017, 17:07 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1324
Репутация: 470 ±
Замечаний: 0% ±

Excel 2013
Файлы сархивированы на Маке.
Тут есть отдельная ветка для Ексель Мак, может лучше туда?


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеФайлы сархивированы на Маке.
Тут есть отдельная ветка для Ексель Мак, может лучше туда?

Автор - nilem
Дата добавления - 31.10.2017 в 17:07
buchlotnik Дата: Вторник, 31.10.2017, 17:07 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3327
Репутация: 886 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
откуда вы знаете
так... телепаты :)
МАС-овский zip очень странно под виндой открывается - потому и знаем


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщение
Цитата
откуда вы знаете
так... телепаты :)
МАС-овский zip очень странно под виндой открывается - потому и знаем

Автор - buchlotnik
Дата добавления - 31.10.2017 в 17:07
sboy Дата: Вторник, 31.10.2017, 17:08 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1103
Репутация: 276 ±
Замечаний: 0% ±

Excel 2010
а откуда вы знаете?)

romkinss, открываешь Ваш архив, а там вот такое
К сообщению приложен файл: 6003868.jpg(18Kb)
 
Ответить
Сообщение
а откуда вы знаете?)

romkinss, открываешь Ваш архив, а там вот такое

Автор - sboy
Дата добавления - 31.10.2017 в 17:08
_Boroda_ Дата: Вторник, 31.10.2017, 17:14 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11647
Репутация: 4828 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Да ладно, чего вы? Мак нормально поддерживает Виндоус
К сообщению приложен файл: 0396629.jpg(64Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДа ладно, чего вы? Мак нормально поддерживает Виндоус

Автор - _Boroda_
Дата добавления - 31.10.2017 в 17:14
romkinss Дата: Вторник, 31.10.2017, 17:29 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Скидываю без архива
К сообщению приложен файл: 2841372.xlsx(39Kb) · 1_.xlsx(28Kb)
 
Ответить
СообщениеСкидываю без архива

Автор - romkinss
Дата добавления - 31.10.2017 в 17:29
romkinss Дата: Вторник, 31.10.2017, 17:29 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
и вот
К сообщению приложен файл: 2_.xlsx(27Kb) · 3_.xlsx(25Kb)
 
Ответить
Сообщениеи вот

Автор - romkinss
Дата добавления - 31.10.2017 в 17:29
romkinss Дата: Вторник, 31.10.2017, 17:42 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
По сути могу и здесь расписать.

Файл с названием "Файл1" содержит данные
Русакова Оксана Геннадьевна Санкт-Петербург
Ким Александра Николаевна Москва
Агаркова Ирина Сергеевна Киров
Гуляева Татьяна Владимировна Махачкала

Файл с названием "Файл2" содержит данные
Юдина Анна Артуровна Липецк
Мороховец Игорь Александрович Воронеж
Михайлов Дмитрий Владимирович Слобода
Сандрина Юлия Эдуардовна Смоленск

Файл с названием "Файл3" содержит данные
Черванева Екатерина Вячеславовна Витебск
Гладков Александр Вячеславович Балашиха
Савченко Ирина Владимировна Ржев
Данько Алексей Владимирович Белая Калитва

В файле Консолидация после отработки макроса должно быть
Русакова Оксана Геннадьевна Санкт-Петербург Файл1
Ким Александра Николаевна Москва Файл1
Агаркова Ирина Сергеевна Киров Файл1
Гуляева Татьяна Владимировна Махачкала Файл1
Юдина Анна Артуровна Липецк Файл2
Мороховец Игорь Александрович Воронеж Файл2
Михайлов Дмитрий Владимирович Слобода Файл2
Сандрина Юлия Эдуардовна Смоленск Файл2
Черванева Екатерина Вячеславовна Витебск Файл3
Гладков Александр Вячеславович Балашиха Файл3
Савченко Ирина Владимировна Ржев Файл3
Данько Алексей Владимирович Белая Калитва Файл3
 
Ответить
СообщениеПо сути могу и здесь расписать.

Файл с названием "Файл1" содержит данные
Русакова Оксана Геннадьевна Санкт-Петербург
Ким Александра Николаевна Москва
Агаркова Ирина Сергеевна Киров
Гуляева Татьяна Владимировна Махачкала

Файл с названием "Файл2" содержит данные
Юдина Анна Артуровна Липецк
Мороховец Игорь Александрович Воронеж
Михайлов Дмитрий Владимирович Слобода
Сандрина Юлия Эдуардовна Смоленск

Файл с названием "Файл3" содержит данные
Черванева Екатерина Вячеславовна Витебск
Гладков Александр Вячеславович Балашиха
Савченко Ирина Владимировна Ржев
Данько Алексей Владимирович Белая Калитва

В файле Консолидация после отработки макроса должно быть
Русакова Оксана Геннадьевна Санкт-Петербург Файл1
Ким Александра Николаевна Москва Файл1
Агаркова Ирина Сергеевна Киров Файл1
Гуляева Татьяна Владимировна Махачкала Файл1
Юдина Анна Артуровна Липецк Файл2
Мороховец Игорь Александрович Воронеж Файл2
Михайлов Дмитрий Владимирович Слобода Файл2
Сандрина Юлия Эдуардовна Смоленск Файл2
Черванева Екатерина Вячеславовна Витебск Файл3
Гладков Александр Вячеславович Балашиха Файл3
Савченко Ирина Владимировна Ржев Файл3
Данько Алексей Владимирович Белая Калитва Файл3

Автор - romkinss
Дата добавления - 31.10.2017 в 17:42
romkinss Дата: Среда, 01.11.2017, 09:30 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые, так это возможно или нет? В случае с mac os? Готов материально поддержать научный прогресс.
 
Ответить
СообщениеУважаемые, так это возможно или нет? В случае с mac os? Готов материально поддержать научный прогресс.

Автор - romkinss
Дата добавления - 01.11.2017 в 09:30
Pelena Дата: Четверг, 02.11.2017, 21:37 | Сообщение № 12
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Какая у Вас версия Mac Excel?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеКакая у Вас версия Mac Excel?

Автор - Pelena
Дата добавления - 02.11.2017 в 21:37
krosav4ig Дата: Пятница, 03.11.2017, 16:36 | Сообщение № 13
Группа: Друзья
Ранг: Старожил
Сообщений: 1480
Репутация: 599 ±
Замечаний: 0% ±

Excel 2007, 2013
Не знаю как с Mac, но для WIndows можно как-то так
файл должен лежать в папке с базами

на листе QueryTable, в модуле листа код для обновления подключения
для обновления ПКМ по таблице>обновить
[vba]
Код
Private WithEvents qt As QueryTable
Private Sub ss()
    Set qt = [Консолидация].ListObject.QueryTable
    qt.Connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Mode=Read;Extended Properties=text;Data Source=" & Me.path
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ss
End Sub
Private Sub Workbook_Open()
    ss
End Sub
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    Dim Command$()
    Dim f$, s$, v&
    f = Me.path:
    s = Dir$(f & "\*.xls*")
    Do
        If Not s Like "~$*" And s <> Me.Name Then
            ReDim Preserve Command(v):
            Command$(v) = Application.Text$(s, _
                """select *,'""@""' From [Лист1$] IN '" & _
                f & "\""@""' [excel 12.0 xml;HDR=No]""")
                v = v + 1
        End If
        s = Dir$()
    Loop While s <> ""
    qt.CommandText = Join(Command, " union all ")
    DoEvents
End Sub
[/vba]
К сообщению приложен файл: 0876980.xlsm(27Kb)


(_)Õvõ(_)
 
Ответить
СообщениеНе знаю как с Mac, но для WIndows можно как-то так
файл должен лежать в папке с базами

на листе QueryTable, в модуле листа код для обновления подключения
для обновления ПКМ по таблице>обновить
[vba]
Код
Private WithEvents qt As QueryTable
Private Sub ss()
    Set qt = [Консолидация].ListObject.QueryTable
    qt.Connection = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Mode=Read;Extended Properties=text;Data Source=" & Me.path
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    ss
End Sub
Private Sub Workbook_Open()
    ss
End Sub
Private Sub qt_BeforeRefresh(Cancel As Boolean)
    Dim Command$()
    Dim f$, s$, v&
    f = Me.path:
    s = Dir$(f & "\*.xls*")
    Do
        If Not s Like "~$*" And s <> Me.Name Then
            ReDim Preserve Command(v):
            Command$(v) = Application.Text$(s, _
                """select *,'""@""' From [Лист1$] IN '" & _
                f & "\""@""' [excel 12.0 xml;HDR=No]""")
                v = v + 1
        End If
        s = Dir$()
    Loop While s <> ""
    qt.CommandText = Join(Command, " union all ")
    DoEvents
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 03.11.2017 в 16:36
KISTANYA Дата: Воскресенье, 05.11.2017, 14:22 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
помогите создать график функциищщ.
К сообщению приложен файл: __.docx(14Kb)
 
Ответить
СообщениеДобрый день!
помогите создать график функциищщ.

Автор - KISTANYA
Дата добавления - 05.11.2017 в 14:22
Pelena Дата: Воскресенье, 05.11.2017, 16:26 | Сообщение № 15
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11755
Репутация: 2596 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
KISTANYA, прочитайте Правила форума и создайте свою тему в более подходящем разделе. Прочитайте также Если Вы студент...


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеKISTANYA, прочитайте Правила форума и создайте свою тему в более подходящем разделе. Прочитайте также Если Вы студент...

Автор - Pelena
Дата добавления - 05.11.2017 в 16:26
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Консолидация в одной книге данных из других закрытых книг (Макросы/Sub)
Страница 1 из 11
Поиск:

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