hi...
i apologize for the mistakes.. what i meant was that i tried substituting the code by zentara in my script but it didnt change anything . u can even try it with a basic parser script
use Spreadsheet::ParseExcel;
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse($filename);
if ( !defined $workbook ) {
die $parser->error(), ".\n";
}
for my $worksheet ( $workbook->worksheet(0) ) {
my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();
for my $row ( $row_min .. $row_max ) {
for my $col ( 1) {
my $cell = $worksheet->get_cell( $row, $col );
next unless $cell;
$text->insert('end', "$worksheet->{Cells}[$row][1]->{V
+al}\n");
print "$worksheet->{Cells}[$row][1]->{Val}\n";
}
}
}
NOte: i observed the following :
1. The command seems to execute flawlessly on files where i reduced the no of rows (removed the entries) but it causes problems with unformatted files.
2. The print command in such cases(unformatted files) prints
the values as shwn in the first post while nothing is displayed in the text widget.
Update: The above code is just a portion of the script, the portion i suspect is causing problems |