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

Вход

Регистрация

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

 

= Мир MS Excel/Забирать данные в файл из других файлов. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Забирать данные в файл из других файлов. (Сводные таблицы/Pivot Table)
Забирать данные в файл из других файлов.
puz27 Дата: Понедельник, 25.03.2019, 10:00 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Коллеги, доброе утро! Подскажите пожалуйста как поступить, так как с EXCEL на ВЫ.
Есть Файл (INFO), в который нужно заносить данные за каждый день. Данные подтягиваются из других файлов EXCEL, которые создаются в папках каждый день.
Данных каждый день в итоговую таблицу (INFO) заносить нужно много, поэтому руками очень долго.
Как то можно этот процесс автоматизировать? Например проверка на создание папки, и если она есть подтягивать из нее данные? Через массив?
Может направите через что это можно реализовать?
Спасибо!
К сообщению приложен файл: Excel.zip(19.9 Kb)
 
Ответить
СообщениеКоллеги, доброе утро! Подскажите пожалуйста как поступить, так как с EXCEL на ВЫ.
Есть Файл (INFO), в который нужно заносить данные за каждый день. Данные подтягиваются из других файлов EXCEL, которые создаются в папках каждый день.
Данных каждый день в итоговую таблицу (INFO) заносить нужно много, поэтому руками очень долго.
Как то можно этот процесс автоматизировать? Например проверка на создание папки, и если она есть подтягивать из нее данные? Через массив?
Может направите через что это можно реализовать?
Спасибо!

Автор - puz27
Дата добавления - 25.03.2019 в 10:00
_Boroda_ Дата: Понедельник, 25.03.2019, 10:11 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15417
Репутация: 6032 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Здесь явно работа для функции ДВССЫЛ, но она работает только с открытыми книгами, поэтому в Вашем случае можно, но формулами замахаетесь это делать
По идее макрос, но, если "на ВЫ", то ну его - мы-то Вам напишем, но чуть чего поменять нужно - и что Вы делать будуте?
Поэтому предлагаю Вам почитать про Power Query. Там все просто (Вам в дебри лезть не нужно, Вам просто собрать данные из файлов) и информации море https://yandex.ru/search....20query


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЗдесь явно работа для функции ДВССЫЛ, но она работает только с открытыми книгами, поэтому в Вашем случае можно, но формулами замахаетесь это делать
По идее макрос, но, если "на ВЫ", то ну его - мы-то Вам напишем, но чуть чего поменять нужно - и что Вы делать будуте?
Поэтому предлагаю Вам почитать про Power Query. Там все просто (Вам в дебри лезть не нужно, Вам просто собрать данные из файлов) и информации море https://yandex.ru/search....20query

Автор - _Boroda_
Дата добавления - 25.03.2019 в 10:11
puz27 Дата: Понедельник, 25.03.2019, 10:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! С vbs я работал и макросы иногда пишу, просто очень простые. Если направите, как сделать через макрос - было бы здорово!
А по поводу Power query - буду читать! Спасибо!
 
Ответить
СообщениеСпасибо! С vbs я работал и макросы иногда пишу, просто очень простые. Если направите, как сделать через макрос - было бы здорово!
А по поводу Power query - буду читать! Спасибо!

Автор - puz27
Дата добавления - 25.03.2019 в 10:53
_Boroda_ Дата: Понедельник, 25.03.2019, 11:39 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15417
Репутация: 6032 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Такой простенький вариант замены путей в формулах. Без открытия файлов-источников
Папки с данными должны лежать по той же логике, как у Вас в примере
[vba]
Код
Sub tt()
    r0_ = 1
    c0_ = 2
    nr_ = Cells(Rows.Count, c0_).End(3).Row - r0_ + 1
    nc_ = Cells(r0_, Columns.Count).End(1).Column - c0_ + 1
    ar = Cells(r0_, c0_).Resize(nr_, nc_)
    put_ = ThisWorkbook.Path
    aps_ = Application.PathSeparator
    If Right(put_, 1) <> aps_ Then
        put_ = put_ & aps_
    End If
    For i = 2 To nr_
        For j = 2 To nc_
            ar(i, j) = "='" & put_ & Format(ar(1, j), "MM") & aps_ & Format(ar(1, j), "\[DD.MM.YYYY.xl\sx\]") & app_ & ar(i, 1)
        Next j
    Next i
    With Cells(r0_, c0_).Resize(nr_, nc_)
        .Value = ar
        .Value = .Value 'стереть если нужно оставить формулы
    End With
End Sub
[/vba]
К сообщению приложен файл: INFO_1.xlsm(17.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТакой простенький вариант замены путей в формулах. Без открытия файлов-источников
Папки с данными должны лежать по той же логике, как у Вас в примере
[vba]
Код
Sub tt()
    r0_ = 1
    c0_ = 2
    nr_ = Cells(Rows.Count, c0_).End(3).Row - r0_ + 1
    nc_ = Cells(r0_, Columns.Count).End(1).Column - c0_ + 1
    ar = Cells(r0_, c0_).Resize(nr_, nc_)
    put_ = ThisWorkbook.Path
    aps_ = Application.PathSeparator
    If Right(put_, 1) <> aps_ Then
        put_ = put_ & aps_
    End If
    For i = 2 To nr_
        For j = 2 To nc_
            ar(i, j) = "='" & put_ & Format(ar(1, j), "MM") & aps_ & Format(ar(1, j), "\[DD.MM.YYYY.xl\sx\]") & app_ & ar(i, 1)
        Next j
    Next i
    With Cells(r0_, c0_).Resize(nr_, nc_)
        .Value = ar
        .Value = .Value 'стереть если нужно оставить формулы
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 25.03.2019 в 11:39
puz27 Дата: Пятница, 29.03.2019, 11:46 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ДА, спасибо ВАМ! Буду пробовать. Если, что - напишу!
 
Ответить
СообщениеДА, спасибо ВАМ! Буду пробовать. Если, что - напишу!

Автор - puz27
Дата добавления - 29.03.2019 в 11:46
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Забирать данные в файл из других файлов. (Сводные таблицы/Pivot Table)
  • Страница 1 из 1
  • 1
Поиск:

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