1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new("Excel.Application");
$Excel->{Visible} = 1;
my $Book = $Excel->Workbooks->Add;
my $Sheet = $Book->Worksheets(1);
my $Range = $Sheet->Range("A2:C7");
$Range->{Value} =
[['VAL1', 'VAL2', 'VAL3'],
[50, 102, 86],
[67, 150, 174],
[89, 26, 201],
[127, 471, 321],
[156, 536, 241]];
my $Chart = $Excel->Charts->Add;
$Chart->{ChartType} = xlLine;
$Chart->SetSourceData({Source => $Range, PlotBy => xlColumns});
$Chart->{'HasTitle'} = 1;
$Chart->ChartTitle->{Text} = "Graphe cree avec PERL";
$Book->SaveAs("chart.xls");
$Book->Close; |
Partager