#!/usr/bin/perl

use warnings;
use strict;


use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel::SaveParser;

#Originaldatei sichern
rename('test.xls', 'test.xls.bak')
			|| die "Umbenennung nicht möglich!";
unlink('test.xls');

# Open the template with SaveParser
my $parser   = new Spreadsheet::ParseExcel::SaveParser;
my $template = $parser->Parse('test.xls.bak');
my $sheet    = 0;
my $row      = 0;
my $col      = 0;

$sheet = $template->{Worksheet}[0];
$row = $sheet->{MaxRow};
$sheet = 0;

# Get the format from the cell
my $format   = $template->{Worksheet}[$sheet]
->{Cells}[$row][$col]
->{FormatNo};

# Write data to some cells
$template->AddCell(0, $row+1,   $col,   1,     $format);
$template->AddCell(0, $row+2, $col, "Hello", $format);

my $workbook = $template->SaveAs('test.xls');

system("\"C:\\Programme\\Microsoft Office\\Office\\EXCEL.EXE\" \"U:\\Eclipse\\workspace\\Excel_schreiben\\test.xls\"");
1;