Select Code to Download

use Win32::OLE::Const 'Microsoft Excel'; # instead of the constants

Win32::OLE->Option( Warn => 3 );

$_app_object->ActiveWorkbook->PivotCaches->Add({SourceType => xlDa
+tabase, SourceData => 'Sheet1!R1C1:R4C3'})->CreatePivotTable({TableDe
+stination => 'Sheet1!R8C3', TableName => 'PivotTable1', DefaultVersio
+n => xlPivotTableVersion10});