Select Code to Download

OLE exception from "Microsoft Office Excel":

...

Win32::OLE(0.1704) error 0x80020009: "Exception occurred"
    in PROPERTYPUT "Subtotals" at c:\bin\tmp.pl line 54

$_app_object->ActiveWorkbook->PivotCaches->Add({SourceType => xlDataba
+se, SourceData => 'Sheet1!R1C1:R4C3'})->CreatePivotTable({TableDestin
+ation => 'Sheet1!R8C3', TableName => 'PivotTable1', DefaultVersion =>
+ xlPivotTableVersion10});
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->AddDataField
+($_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('
+a') );
...
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields(
+'b')->{Position}    = 2;

   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields(
+'a')->{Subtotals} = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0];