Perl excel模块

• 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表格绝对路径');

 

 

至此、完成。