Добрый день.
Прошу не судить меня строго, только изучаю VBA.
Не хватает своих мозгов и гугл не помог в решении задачи (возможно просто не понимаю, что мне нужно).
Есть файлик со сводной таблицей и нужно сделать выбор источника данных для нее из других файлов.
Так как планируется выгрузка данных за разные периоды и имена источников могут меняться.
Записал код обновления сводной таблицы в файле "1" с помощью макрорекордером и пытаюсь изменить источник данных в SourceData, но ничего не выходит.
По остальной части кода посмотрел в интернете по забору данных с одной книги в другую.
Буду благодарен любой помощи.
Спасибо!
Прошу не судить меня строго, только изучаю VBA.
Не хватает своих мозгов и гугл не помог в решении задачи (возможно просто не понимаю, что мне нужно).
Есть файлик со сводной таблицей и нужно сделать выбор источника данных для нее из других файлов.
Так как планируется выгрузка данных за разные периоды и имена источников могут меняться.
Записал код обновления сводной таблицы в файле "1" с помощью макрорекордером и пытаюсь изменить источник данных в SourceData, но ничего не выходит.
По остальной части кода посмотрел в интернете по забору данных с одной книги в другую.
Буду благодарен любой помощи.
Спасибо!
Код |
---|
Sub updateTables() Dim kniga As String Dim tk As String Dim ok As String kniga = Application.GetOpenFilename tk = ThisWorkbook.Name ok = Dir(kniga) GetObject (kniga) ActiveSheet.PivotTables("СводнаяТаблица1").ChangePivotCache ActiveWorkbook. PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Workbooks(ok).Worksheets("Лист1").Range("G:I"), Version:=xlPivotTableVersion15) Workbooks(ok).Close (False) End Sub |