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

[devbond]

I cant declare workbook as my as i need to use it in other subs too

[hdb]

Then, at least, declare it as a globel variable, ie outside of all subs. Or, better, pass it as a parameter into the subs, that need it.

[devbond]

#!/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();

declaring workbook outside is not working

[poj]

Try adding $workbook->close() as last statement.
poj

[Anonymous Monk]

What does not work?