#!/usr/bin/perl -w
my
$workbook
= Excel::Writer::XLSX->new(
'regions.xlsx'
);
my
$north
=
$workbook
->add_worksheet(
"North"
);
my
$south
=
$workbook
->add_worksheet(
"South"
);
my
$east
=
$workbook
->add_worksheet(
"East"
);
my
$west
=
$workbook
->add_worksheet(
"West"
);
my
$format
=
$workbook
->add_format();
$format
->set_bold();
$format
->set_color(
'blue'
);
foreach
my
$worksheet
(
$workbook
->sheets() ) {
$worksheet
->
write
( 0, 0,
"Sales"
,
$format
);
}
$north
->
write
( 0, 1, 200000 );
$south
->
write
( 0, 1, 100000 );
$east
->
write
( 0, 1, 150000 );
$west
->
write
( 0, 1, 100000 );
$south
->activate();
$south
->set_column( 0, 0, 20 );
$south
->set_selection( 0, 1 );