use strict;
use warnings;
use Spreadsheet::WriteExcel;

# Excel-Datei und drei Arbeitsblaetter erzeugen
my $excel  = Spreadsheet::WriteExcel->new("zwei.xls");
my $sheet1 = $excel->add_worksheet("Blatt 1");
my $sheet2 = $excel->add_worksheet("Blatt 2");
my $sheet3 = $excel->add_worksheet("Blatt 3");

# ein Format basteln
my $format = $excel->add_format();
$format->set_bold();
$format->set_size(14);
$format->set_color('blue');
$format->set_align('center');

# desgleichen, nur in rot
my $rot = $excel->add_format();
$rot->copy($format);
$rot->set_color('red');

# auch so etwas geht - Zahl als Datum formatieren
my $date = $excel->add_format();
$date->set_num_format('mm dd yyyy hh:mm');

# Breite der ersten Spalte aendern
$sheet3->set_column(0, 0, 30);

# Blatt 3 aktivieren
$sheet3->activate();

# wieder etwas Text, diesmal blau
$sheet3->write(0, 0, "Hallo Excel!", $format);

# noch einmal Text, aber default
$sheet3->write(2, 0, "Schnipp");
$sheet3->write(3, 0, "Schnapp");

# noch einige Zahlen
$sheet3->write(4, 0, 3);
$sheet3->write(5, 0, 4.00001);

# diesmal mit "Excel-Adressierung" der Zellen
$sheet3->write('A3', 1.2345, $rot);
$sheet3->write('A4', '=SIN(PI()/4)', $rot);

# und ein formatiertes Datum
$date->set_num_format('dd.mmmm yyyy hh:mm');
$sheet3->write(7, 0, 41050.1875, $date);

$excel->close();