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表格绝对路径');
至此、完成。
页:
[1]