Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Подтягивание данных из других файлов
 
Форумчане, доброго времени суток! Очень нужна помощь..
Есть следующий кейс: нужно консолидировать на лист данные из других книг, причем делать это по тем путям (к файлам), которые будут указаны в n-ом столбце данной книги (то есть, как я понимаю, цикл, который будет перебирать все пути и подгружать из книг определенные диапазоны с определенных листов).
А следующим шагом должно быть добавление с консолидированного листа в другой уникальных значений (типа ВПР, но там 10ки тысяч строк будут, боюсь зависнет), в котором сохраняется вся история кумулятивно (то есть, добавили раз, там осталось, потом сконсолидировали еще раз, в этот список из консо новые уникальные добавились и тд.)
Горит уже, честно говоря, от неумения кодить....

Примерно в эксельке забил листы и вот начало кода, что смог придумать:

Sub Консолидация ()
Dim iBeginRange As Object
Dim sSheetName As String, bPasteValues As String, File As String
Dim Title As String
Dim rn&, rc&
Dim wsDataSheet As Object

On Error Resume Next
Set iBeginRange = Range("A3:H10")
sSheetName = "Заявки"
rn = Cells(J3)
rc = Range(("J3"), Range(("J3"), .End(xlDown)))
Set wsDataSheet = ActiveWorkbook.Sheets("СВОД")

For i = rn To rc
   File = Application.GetOpenFilename(rn)
   
Изменено: vadik-ceo - 15 Мар 2018 19:46:50
 
vadik-ceo, код следует оформлять соответствующим тегом - ищите такую кнопку <...> и исправьте своё сообщение.
P.S. В книгах формата .xlsx макросы не живут.
Страницы: 1
Читают тему (гостей: 1)