Чтение из сводной таблицы в другом файле excel

Я разрабатываю excel-файл для хранения и анализа данных для моей работы. Для этого мне нужно использовать VBA для выполнения определенных вычислений и т. Д.

К проблеме: данные, которые я хочу прочитать в моих файлах excel, хранятся в других excel-файлах, обновляемых ежемесячно другим подразделением при моей работе. Эти файлы представлены в виде сводных таблиц по ежемесячным данным с некоторыми доступными фильтрами.

В основном, в моем excel-файле у меня есть раскрывающийся список, в котором пользователь выбирает область (параметр фильтра в других файлах excel, содержащих данные), а затем нажимает кнопку «Обновить». Затем VBA-программа должна читать в моем файле из других excel-файлов, фильтрующих сводные таблицы в соответствии с областью, которую пользователь выбирает в моем файле, и извлекать данные в мой файл, а затем выполнять некоторые вычисления на нем.

Поэтому я был бы очень благодарен, если бы кто-нибудь мог объяснить мне, как я могу это сделать. Я предполагаю, что значение, которое пользователь выбирает в моем файле, должно передаваться как какой-то аргумент в VBA-программу? Как читать из других закрытых файлов excel?

Надеюсь, что мое объяснение достаточно ясное, чтобы понять, что я ищу.

Спасибо заранее!

Edit: Итак, я начал с VBA-программы, которая выглядит следующим образом:

strLan = Range("K2").Value 'The value I want to set for the filter option Workbooks.Open Filename:= _ "source-file.xlsx" _ , Notify:=False Windows("sourcefile.xlsx").Activate Sheets("Blad1").PivotTables("PivotTable1").PivotFields("filtervariable").CurrentPage = strLan ActiveSheet.PivotTables("PivotTable1").DataBodyRange.Select Selection.Copy Windows("newfile.xlsm").Activate Sheets("Totalt").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Workbooks.Close 

Однако я получаю следующее сообщение об ошибке: «невозможно получить свойство pivottables класса рабочей таблицы»

Надеюсь, это очистит мою проблему!

Лучший

  • Экспресс фильтр сводной таблицы как то, что скрыто, а не то, что показано?
  • Как «Добавить эти данные в модель данных?» И сделать данные в значениях разными?
  • Привет, я хочу использовать VBA для подсчета в сводной таблице
  • VSTO: тестирование ориентации PivotField
  • PowerPivot, Data Model, чтобы выбрать из таблицы ввода данных список списка в отдельной таблице
  • создание расчетного поля в таблице сводной таблицы excel на основе элемента в столбце
  • Как я могу предоставить вычисленное значение, основанное на двух других значениях в сводной таблице Aspose.Cells?
  • Excel сводная таблица из внешнего источника с запросом / фильтром
  • Сводный стол заводит меня орехами, переворачивая цифры до дат
  • XSSF (Apache POI) - добавление нескольких ярлыков столбцов из значения одного столбца в сводной таблице
  • Excel vba: ошибка, скрывающая вычисленное поле в сводной таблице
  • Давайте будем гением компьютера.