Re^6: Not able to create worksheets inside a subroutine

#!/usr/bin/perl
use warnings;
use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
my $workbook;
my @s;
$Month=Sept;


sub create_excel {

$workbook = Spreadsheet::WriteExcel->new('FAISTATS_'."$Month".'.xls');
for ( $i=1;$i<=8;$i++)
{
$s[$i] = $workbook->add_worksheet( "cpzea0".$i."a0001" ) ;
}
$s[9] = $workbook->add_worksheet( "WEEKLY" ) ;
$s[10] = $workbook->add_worksheet( "MONTHLY" ) ;
}
create_excel();
[download]

declaring workbook outside is not working

Comment on Re^6: Not able to create worksheets inside a subroutine Download Code

Replies are listed 'Best First'.
Re^7: Not able to create worksheets inside a subroutine by poj (Abbot) on Sep 29, 2013 at 18:24 UTC
Try adding `$workbook->close()` as last statement. poj	[reply] [d/l]
Re^7: Not able to create worksheets inside a subroutine by Anonymous Monk on Sep 29, 2013 at 18:18 UTC
What does not work?	[reply]