VBA Pivot Table динамический диапазон - PullRequest
Новая
       6

VBA Pivot Table динамический диапазон

0 голосов
/ 07 марта 2019

Я пытаюсь создать код VBA для сводной таблицы, строки и столбцы которой могут измениться в будущем. Я использовал код ниже, но я получаю ошибку времени выполнения 1004 на этапе установки ptable. Я также хотел бы добавить сюда код, удалить рабочий лист «Сводная таблица», если он существует, а затем создать новый, чтобы все данные можно было собирать. Пожалуйста, вы можете посоветовать. 

Dim Pivot As Worksheet
Dim pCache As PivotCache
Dim pTable As PivotTable
Dim lastRows As Long
Set Pivot = Worksheets.Add
Set pCache = ActiveWorkbook.PivotCaches.Create(xlDatabase, Sheets("CJI Data").Range("A2").CurrentRegion.Address(ReferenceStyle:=xlR1C1))
Set pTable = pCache.CreatePivotTable(Pivot.Range("A1"))

Спасибо, R

1 Ответ

0 голосов
/ 07 марта 2019

Зачем вам нужны .Address и R1C1? 

Set PCache = ActiveWorkbook.PivotCaches.Create (xlDatabase, Sheets(“CJI Data”).Range(“A2”).CurrentRegion)

Кроме того, нет необходимости удалять таблицу при расширении данных, поэтому вы используете динамический диапазон.Просто обновите стол.

...