Szerintem jobban jársz, ha kihagyod a verzió megnevezését. Tökéletesen működik, egyszerűbb és olvashatóbb a kód:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
„Sheet1!R1C1:R9C3″).CreatePivotTable _
TableDestination:=”Sheet3!R3C1″, TableName:=”PivotTable1”
Mondjuk ilyenkor xlPivotTableVersion12-re áll be, ami a 2007-es Excel pivotja. Megadhatod a xlPivotTableVersion14-et, ami működik Excel 2010, 2013 és 2016 alatt is, és akkor nem kell bíbelődni verziókkal. Nem találtam még hátrányt a 2016-os Excelben PivotV12-vel dolgozva.
Különben ne állj meg itt, a kevesebb több! 🙂
Ha nem adsz meg TableDestinationt (pontosabban ha üres stringet adsz meg TableDestination-nek), akkor automatikusan egy új, üres lapra teszi a kimutatást.
(A TableName paraméter is elhagyható, ekkor automatikusan nevezi el az Excel az új kimutatást, de ezzel nem sokat nyersz, mert amúgy is lehet két azonos nevű kimutatásod, feltéve, hogy nem ugyanazon a lapon vannak.)
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
„Sheet1!R1C1:R9C3″).CreatePivotTable TableDestination:=””
Sokkal szebb. 🙂
