Help for this page

Select Code to Download


  1. or download this
    use Win32::OLE::Const 'Microsoft Excel'; # instead of the constants

Win32::OLE->Option( Warn => 3 );
  2. or download this
    $_app_object->ActiveWorkbook->PivotCaches->Add({SourceType => xlDa
+tabase, SourceData => 'Sheet1!R1C1:R4C3'})->CreatePivotTable({TableDe
+stination => 'Sheet1!R8C3', TableName => 'PivotTable1', DefaultVersio
+n => xlPivotTableVersion10});