Finding data on Excel 1

[miguelfc]

Hi!

I'm using perl and win32:le module to extract information from an excel archive. I'm having problems with the sintaxis, I think. What my program is intended to do is search for a string and returning its position. This is the code:
while (!$i){
$valor = $Sheet->Range("A1:G500")->Find({What=>"$_[0]",After=>"A1"})->{Row};
$col = $Sheet->Range("A1:G500")->Find({What=>"$_[0]",After=>"A1"})->{Column};
$row = $valor;
$valor = $Sheet->Cells($row,$col)->{'Value'};
$i="TRUE" if ($valor=~/$_[0]$/);
}
}

This code doesn't work, and the error is on the second line. I've tried with Cell($row,$col) and it doesn't work either. I want the "A1" to be dynamic, that's the point of this.

If anyone knows about this, please give me some advise.

Bye. Sorry for my english, i'm not very good on that.

 

[Mephansteras]

You may want to try using the Spreadsheet:arseExcel module from CPAN. It is specifically designed for dealing with excel, and I have always found it very easy to use.

 

[dmazzini]

Read the thread219-824783. Here I posted an example how to use the module Spreadsheet:arseExcel.

 

[miguelfc]

Hi, thanks for your help.

Using the spreadsheet module, how do I search for text patterns using regular expressions?

 

[dmazzini]

read_source();

sub read_source {

my $workbook = Spreadsheet:arseExcel::Simple->read($input_file);

my $worksheet = ($workbook->sheets())[0];

while ($worksheet->has_data()) {
my @fields= $worksheet->next_row();
$value_col1="$fields[0]";
$value_col2= "$fields[1]";
$value_col3 = "$fields[2]";
$value_col4 = "$fields[3]";
compare_values();
}

}

}


# Example checking Values from column 1
# Also you could check against the array @fields (remember # that @fields is local, so you should check it after the
# line (my @fields= $worksheet->next_row()


sub compare_values{
$found ==1 and $cont++ if ($value_col1 eq $string_to find);
}

print "I have found the string $string $cont++ times\n";