OLE exception from "Microsoft Office Excel":

Unable to set the Subtotals property of the PivotField class

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

##</code><code>##

$_app_object->ActiveWorkbook->PivotCaches->Add({SourceType => xlDatabase, SourceData => 'Sheet1!R1C1:R4C3'})->CreatePivotTable({TableDestination => '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('a')->{Orientation} = xlRowField;
   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('a')->{Position}    = 1;

   $_app_object->ActiveSheet->PivotTables('PivotTable1')->PivotFields('b')->{Orientation} = xlRowField;
   $_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];