#!/usr/bin/perl use strict; use warnings; use Data::Dumper::Simple; use Spreadsheet::ParseExcel; my $workbook = 'test.xls'; my $worksheet_name = 'Sheet1'; my $wb = Spreadsheet::ParseExcel::Workbook -> Parse ( $workbook ) or warn ( "Problem opening $workbook!\n") ; my $ws = $wb -> Worksheet( $worksheet_name ); foreach my $row ( $ws -> { MinRow } .. $ws -> { MaxRow } ) { foreach my $col ( $ws -> { MinCol } .. $ws -> { MaxCol } ) { my $cell = $ws -> { Cells }[ $row ][ $col ]; if ( $cell ) { my $val = $cell -> { Val }; my $value = $cell -> Value; if ( $row == 33 && $col == 13 ) { print "[$row:$col] = $val\n"; print "[$row:$col] = $value\n"; } } } }
As you can see, I was unable to reproduce the problem you are having. Are you using the latest version of Spreadsheet::ParseExcel?[33:13] = -4.1 [33:13] = (-4.10)
In reply to Re^5: Error reading Excel Cell Value
by no21
in thread Error reading Excel Cell Value
by sandeep78
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |