perl操作excel2

preadsheet::WriteExcel这个模块，如果能很好的使用这个模块，从perl输出到excel的操作也就没什么问题了。利用它的几个函数，就可以方便地把数据写入到Excel相应的位置中，同时还可以设置单元格的格式，如字体大小，单元格大小，是否加粗，底色等等。这一篇为基础篇，主要包括以下内容：

如何安装perl模块Spreadsheet::WriteExcel；

如何用perl创建excel表格；

如何进行输出的格式设置；

如何进行简单的输出。

 

1.模块Spreadsheet::WriteExcel的安装

因为我使用的是windows系统，而且这些操作都是在windows下完成的，所以以下都以windows为例。其他的安装方式见

http://cpansearch.perl.org/src/JMCNAMARA/Spreadsheet-WriteExcel-2.37/docs/WriteExcel_Install.html

最简单的安装方法还是ppm。

1).在cmd中输入ppm打开perl包管理器(Perl Package Manager)

2).在弹出的ppm中输入spreadsheet-writeexcel

3).选择Spreadsheet-WriteExcel点右键安装

4).等下载完毕后，点击右上方的一个小绿色箭头完成安装。

 

2.用perl创建excel表格

 

#!/usr/bin/perl 

use strict; 

use Spreadsheet::WriteExcel;  

#************生成Excel文档****************  

my $xl = Spreadsheet::WriteExcel->new("TEST.xls");  #引号中为生成的excel的名称，瘦箭头后面都是模块Spreadsheet::WriteExcel中的方面。

#生成Excel表  

my $xlsheet = $xl->add_worksheet("TestSheet");  #引号中为excel工作簿中表的名称

$xlsheet->freeze_panes(1, 0); #冻结首行

 

3.输出的格式设置

 

#添加格式（表头）

my $rptheader = $xl->add_format(); # Add a format

$rptheader->set_bold(); #加粗

$rptheader->set_size('18'); #字体大小

$rptheader->set_align('center'); #居中

$rptheader->set_font('BrowalliaUPC'); #字体

#添加格式（表内容）

my $normcell = $xl->add_format(); # Add a format

$normcell->set_size('11');

$normcell->set_align('center');

$normcell->set_bg_color('21'); #背景色

#设置列的宽度

$xlsheet->set_column('A:A',12);

$xlsheet->set_column('B:B',10);

$xlsheet->set_column('C:C',14);

 

4.输出

 

#写表头（格式是使用上面添加的表头格式） 

$xlsheet->write("A1","Number", $rptheader); #格式为(单元格位置，写入的内容，格式)

$xlsheet->write("B1","Name",$rptheader);

$xlsheet->write("C1","Language",$rptheader);

#写内容（格式是使用上面添加的表内容格式）

$xlsheet->write("A2","1", $normcell);

$xlsheet->write("B2","Test",$normcell);

$xlsheet->write("C2","Perl",$normcell);

#关闭操作excel的对象.

$xl->close();