perl读写Excel

最近学习了使用perl制作一个Excel文件，使用Spreadsheet模块写03版Excel时新建一个Excel文件。

#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::FmtUnicode;

####读Excel
my $parser = Spreadsheet::ParseExcel->new();
##对Excel内中文字符进行字符编码指定，防止乱码
my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");
my $workbook = $parser->parse('hello.xls', $formatter);
if(!defined $workbook){
die $parser->error(), "\n";
}

for my $worksheet($workbook->worksheets()){
##行号的最小值和最小值
my ($row_min, $row_max) = $worksheet->row_range();
##列号的最小值和最大值
my ($col_min, $col_max) = $worksheet->col_range();

for my $row ($row_min..$row_max){
for my $col ($col_min..$col_max){
my $cell = $worksheet->get_cell($row, $col);
next unless $cell;

print "Value=", $cell->value(), "\n";
}
}
}

-----------------------------------------------------------------------------------------

####写Excel
##创建一个新的xls文件，该模块只能先新建后写，不能对已有文件进行修改
my $workbook = Spreadsheet::WriteExcel->new('newexcel.xls');
##新建一个sheet，可以在括号内加入sheet名称，若不加，默认为sheet1
my $worksheet = $workbook->add_worksheet();

#设置表头字体格式
my $format_head = $workbook->add_format(
##为了避免字符串中数字使用原格式，使用@设置数字的默认格式同文字格式
num_format   => '@',
##设置字体格式为黑体
font      => decode("cp936", "黑体"),
bold      => 1,                         ##加粗
align     => 'center',                  ##居中
border       => 1                       ##边界框线
);
#设置字体格式
my $format_1 = $workbook->add_format(
num_format   => '@',
size         => 10,
font         => decode("cp936", "宋体"),
border       => 1,
align        => 'center',
);
##设置数字格式
my $format_2 = $workbook->add_format(
##数字保留两位有效小数，0.00_下划线后必须加空格
num_format   => '0.00_ ',
size         => 10,
font         => 'Arial',
border       => 1,
align        => 'center',
);
##此外还可以设置字体颜色，背景颜色等
###设置每一列宽度
$worksheet->set_column('A:A', 20);
$worksheet->set_column('B:B', 21);
##合并第一行AB列
$worksheet->merge_range('A1:B1', decode("cp936", "表格"), $format_head);
$worksheet->write(1, 0, decode("cp936", "第一行"), $format_1);
$worksheet->write('B2', 112, $format_2);

##关闭workbook
$workbook->close();

在写Excel时，若需要合并某些行或某些列，需单独为其设置字体格式，不能使用未合并行和列的格式，否则会报以下错误。

Error: refer to merge_range() in the documentation.

Can’t use previously merged format in non-merged cell at XXXX.

写Excel结束时，需要关闭workbook，读Excel时则不需要。

更多方法可以使用命令perldoc Spreadsheet::WriteExcel 或 perldoc Spreadsheet::ParseExcel查看具体内容。