perl实现excel画图和写文件

需要用到的包:Win32::OLE;Win32::OLE::Const 'Microsoft Excel';这些包可在CPAN上找到

 

 

例子:


my $Excel = Win32::OLE->new("Excel.Application");
$Excel->{Visible} = 0;

 


#打开一个现成的文件(你可以用对应的文件替换掉F://perl_example//Throughput vs SNR.xls):

my $Book = $Excel->Workbooks->Open("F://perl_example//Throughput vs SNR.xls")|| die("Unable to open document ", Win32::OLE->LastError());
my $Chart = $Book->Charts->Add;
my $Sheet = $Book->Worksheets(1);

 


#图形的类型

$Chart->{ChartType} = xlLineMarkers;
$Chart->SeriesCollection->NewSeries();

#获取当前excel文件中的最大行数
my $Row = $Sheet->{UsedRange}->{Rows}->{Count};


#设置图形的数据源

$Chart->SeriesCollection(1)->{XValues} = "='Throughput vs SNR'!R2C1:R${Row}C1";
$Chart->SeriesCollection(1)->{Values} = "='Throughput vs SNR'!R2C7:R${Row}C7";

$Chart->SeriesCollection(1)->{Name} = "Throughput vs SNR";
$Chart->{'HasTitle'} = 1;
$Chart->ChartTitle->{Text} = 'Throughput vs SNR';

#$Chart->Location({Where=>xlLocationAsObject, Name=>"Throughput vs SNR"});


#保存和关闭

$Book->Save;
$Book->Close;


 

向excel中写数据,则可以使用如下方法:

$Sheet->Cells(1, 1)->{Value} =  "L3-Average";

其中Cells(1, 1)的第一个参数为单元格所在的行号,第二个参数为单元格所在的列号

 

阅读更多
个人分类: perl语言
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭