in reply to Re^3: Not able to create worksheets inside a subroutine
in thread Not able to create worksheets inside a subroutine

I cant declare workbook as my as i need to use it in other subs too
  • Comment on Re^4: Not able to create worksheets inside a subroutine

Replies are listed 'Best First'.
Re^5: Not able to create worksheets inside a subroutine
by hdb (Monsignor) on Sep 29, 2013 at 17:42 UTC

    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.

[reply]
      #!/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
[reply]
[d/l]
        Try adding $workbook->close() as last statement.
        poj
[reply]
[d/l]
        What does not work?
[reply]

In Section Seekers of Perl Wisdom