Re^5: Error reading Excel Cell Value

I ran the following code on your file:

#!/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";

            }
        
        }
    }    
}
[download]

This was the output:

[33:13] = -4.1
[33:13] =   (-4.10)
[download]

As you can see, I was unable to reproduce the problem you are having. Are you using the latest version of Spreadsheet::ParseExcel?

Comment on Re^5: Error reading Excel Cell Value Select or Download Code

Replies are listed 'Best First'.
Re^6: Error reading Excel Cell Value by sandeep78 (Novice) on Oct 08, 2008 at 02:41 UTC
Hi Thank you for the response. I am using the following versions. Spreadsheet-ParseExcel-0.33 Spreadsheet-ParseExcel-Simple-1.04 But I dont have the Data::Dumper::Simple module installed. Please confirm your versions. Thanks for your time.	[reply]
Re^7: Error reading Excel Cell Value by no21 (Sexton) on Oct 08, 2008 at 11:14 UTC
Wow, this is interesting. I had Spreadsheet::ParseExcel, version 0.32 installed on my system. So I installed version 0.33, and here is the output from the script in my previous post now: `[33:13] = 7.42648557919274e+275 [33:13] = 742,648,557,919,274,215,596,480,721,467,753,739,797,881,83 +9,158,032,045,444,744,972,281,248,374,846,048,088,725,564,424,705,059 +,145,840,738,686,965,435,358,755,836,749,146,754,873,675,932,600,092, +125,946,893,868,194,138,671,244,971,437,781,478,579,517,410,099,590,0 +90,026,114,048,017,693,855,644,672,962,827,489,552,711,307,891,602,71 +6,747,903,682,255,045,301,108,736.00` [download] I'm wondering if this is a bug. You should maybe try reporting this bug on CPAN.	[reply] [d/l]
Re^8: Error reading Excel Cell Value by jmcnamara (Monsignor) on Oct 08, 2008 at 15:07 UTC
Looks like a bug in Spreadsheet::ParseExcel 0.33. In the `_UnpackRKRec()` sub in `ParseExcel.pm` the following lines: `... substr($sWk, 3, 1) &= pack('U', $u31); ... substr($lWk, 0, 1) &= pack('U', $u01); ...` [download] should probably be: `... substr($sWk, 3, 1) &= pack('c', $u31); ... substr($lWk, 0, 1) &= pack('c', $u01); ...` [download] If you'd like to raise a bug report feel free. :-) If not I'll do it when I get a chance. Update: Looks like it has already been reported. I added the above there. -- John.	[reply] [d/l] [select]