24 lines
636 B
Perl
24 lines
636 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use Spreadsheet::ParseExcel;
|
||
|
|
use Spreadsheet::ParseExcel::SaveParser;
|
||
|
|
|
||
|
|
# Open the template with SaveParser
|
||
|
|
my $parser = new Spreadsheet::ParseExcel::SaveParser;
|
||
|
|
my $finanzen = "/data/DatenLucas/Dokumente/Dokumente/Finanzen/BA_Data.ods";
|
||
|
|
#my $finanzen = "FinanzenTest.xls";
|
||
|
|
my $template = $parser->Parse($finanzen);
|
||
|
|
|
||
|
|
my $row=0;
|
||
|
|
my $col=0;
|
||
|
|
my $sheet=0;
|
||
|
|
|
||
|
|
# Get the format from the cell
|
||
|
|
my $format = $template->{Worksheet}[$sheet]
|
||
|
|
->{Cells}[$row][$col]
|
||
|
|
->{FormatNo};
|
||
|
|
|
||
|
|
$template->AddCell(0, $row+1, $col, 1, $format);
|
||
|
|
$template->SaveAs('new.xls');
|
||
|
|
|