in reply to Re: Create a excel sheet with formula ???
in thread Create a excel sheet with formula ???


Thnax i always write the $r instade of "E$r";

So for my next point that is, is there any way to put this in to a subroutine and use this value in excel.
my @array= ($slno, $testid, $status);
$array_ref  = \@array;
$worksheet->write_row($row, $col, $array_ref);

[download]

here the @array takes the constant value,but if i pass it from other module then itis like
sub Entry(@)
{ 
my @data= @_;
$slno=$ddd[0];
$testid=$ddd[1];
$status=$ddd[2];
my @array= ($slno, $testid, $status);
$array_ref  = \@array;
$worksheet->write_row($row, $col, $array_ref);
}

[download]

Then it is not working properly.I think i was missing something.Plz give some instuction

Replies are listed 'Best First'.
Re^3: Create a excel sheet with formula ???
by monarch (Priest) on Nov 08, 2006 at 08:28 UTC
    I tried out your code, and it creates a nice spreadsheet. Thank you for providing your working code!

    I'm not sure I understand your question. However.. If I was to write a function that takes your three values it would be thus:

    sub Entry( $ $ $ $ ) {
    my ( $row, $slno, $testid, $status ) = @_;

    $worksheet->write( "A$row", $slno );
    $worksheet->write( "B$row", $testid );
    $worksheet->write( "C$row", $status );
}

    [download]
    and call it thus
      # skip header row on Excel Spreadsheet
  my @entries = (
      [ "1", "00A", "pass" ],
      [ "2", "01A", "fail" ],
      [ "3", "01B", "fail" ],
      [ "4", "02A", "pass" ],
  );

  for (my $i = 0; $i < @entries; $i++) {
      my ( $slno, $testid, $status ) = @{$entries[$i]};

      Entries( $i+2, $slno, $testid, $status );
  }

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom