home *** CD-ROM | disk | FTP | other *** search
/ Freelog 15 / FREELOG 15.ISO / WebMaster / Perl / PERL5106.ZIP / perl5 / eg / excel1.pl next >
Encoding:
Text File  |  1996-04-05  |  1.4 KB  |  42 lines
  1. #Const xlRows = 1
  2. #
  3. #Set application = CreateObject("Excel.Application")
  4. #application.Visible = True
  5. #Set workbook = application.Workbooks.Add(template:=xlWorkSheet)
  6. #Set worksheet = workbook.Worksheets(1)
  7. #worksheet.Range("A1:D1").Value = Array("North", "South", "East", "West")
  8. #worksheet.Range("A2").Value = 5.2
  9. #worksheet.Range("B2").Value = 10
  10. #worksheet.Range("C2").Value = 8
  11. #worksheet.Range("D2").Value = 20
  12. #Set range = worksheet.Range("A1:D2")
  13. #Set chart = workbook.Charts.Add
  14. #chart.ChartWizard Source:=range, gallery:=xl3DPie,
  15. #    Format:=7, plotBy:=xlRows, categoryLabels:=1,
  16. #        seriesLabels:=0, hasLegend:=2, Title:="Sales Percentages"
  17. #        workbook.Saved = True
  18.  
  19. use OLE;
  20.  
  21. $application = CreateObject OLE 'Excel.Application' || die $!;
  22.  
  23. $application->{'Visible'} = 1;
  24. $workbook = $application->Workbooks->Add();
  25. $worksheet = $workbook->Worksheets(1);
  26. $worksheet->Range("A1:D1")->{'Value'} = ["North","South","East","West"];
  27. $worksheet->Range("A2")->{'Value'} = 5.2;
  28. $worksheet->Range("B2")->{'Value'} = 10;
  29. $worksheet->Range("C2")->{'Value'} = 8;
  30. $worksheet->Range("D2")->{'Value'} = 20;
  31.  
  32. $range = $worksheet->Range("A1:D2");
  33. $chart = $workbook->Charts->Add;
  34.  
  35. #$chart->ChartWizard(range,"x13DPie",7,"x1Rows",1,0,2,"Sales Percentages" );
  36.  
  37. $workbook->{'Saved'} = 1;
  38.  
  39. $application->ActiveWorkbook->Close(0);
  40. $application->Quit();
  41.  
  42.