VBA сводная таблица Excel 2016 - PullRequest
Новая
       20

VBA сводная таблица Excel 2016

1 голос
/ 12 марта 2020

Изменился ли синтаксис vba для сводной таблицы в Excel 2016? Эта строка, сначала в блоке, который создает сводную таблицу, работала в Excel 2010, но теперь не работает в Excel 2016 / Windows 10: 

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R" & lnglastrow & "C" & lnglastcol & "", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Sheet4!R3C1", TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion14

1 Ответ

0 голосов
/ 12 марта 2020

Обычно это работает, если разбить эту строку на два шага 

Dim pc as pivotcache, pt as pivottable

Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
          SourceData:= "Sheet1!R1C1:R" & lnglastrow & "C" & lnglastcol, _ 
          Version:=xlPivotTableVersion14)

Set pt = pc.CreatePivotTable(TableDestination:="Sheet4!R3C1", TableName:="PivotTable1", _
                               DefaultVersion :=xlPivotTableVersion14
...