Perl excel模块

bobpxp

• excel重写模块
  

　　一、excel重写模块
　　Spreadsheet::ParseExcel
Spreadsheet::ParseExcel::SaveParser
　　上述模块均可以使用cpan安装

cpan Spreadsheet::ParseExcel   
cpan Spreadsheet::ParseExcel::SaveParser
　　代码示例

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
#打开以存在的excel表格
my $parser   = Spreadsheet::ParseExcel::SaveParser->new();
my $template = $parser->Parse('源excel表格绝对路径');
#获取要插入数据的位置 $row为行 $col为列(从0开始)
my $worksheet = $template->worksheet(0);
my $row  = 0;
my $col  = 0;
#在第一排第一列插入New这个新数据
$worksheet->AddCell( $row, $col, 'New');
#在第一排第二列插入New2这个数据
$worksheet->AddCell( $row, $col + 1, 'New2' );
my $cell = $worksheet->get_cell( $row + 2, $col );
my $format_number = $cell->{FormatNo};
#依次类推
$worksheet->AddCell( $row, $col + 2, 'Newest', $format_number );
#存为新档
$template->SaveAs('新excel表格绝对路径');
　　 
　　至此、完成。