in reply to Create a excel sheet with formula ???

If I understood your question correctly, I am answering your second question.

In case of formula the row and column not taking the variable


Change your formula code as shown below. Here the variables working perfectly in the formula. 
my $first = 'C2';
my $second = 'C9';

for my $r (3..4)
{

    $worksheet->write("E$r", "=COUNTIF($first:$second, \"pass\")"); 
    $r++;
    $worksheet->write("E$r", "=COUNTIF($first:$second, \"FAIL\")");   
+      
}

[download]
Also try to use strict and warnings.

Prasad

Replies are listed 'Best First'.
Re^2: Create a excel sheet with formula ???
by samirpatry (Acolyte) on Nov 08, 2006 at 07:05 UTC

    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
[reply]
[d/l]
[select]
      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