Error reading Excel Cell Value

[sandeep78]

Hi Monks, I am using the code below to read from an excel sheet. This reads a cell. It is returning some data dump rather than the actual cell value. For ex: The cell(33,13) is (4.10) formatted as Accounting (2 Decimal points) in Excel. But the script is returning...some dump 742,849,... This is not happening on all the cells in the spread sheet.

#!/usr/local/bin/perl

use strict;
use warnings;
use Spreadsheet::ParseExcel;

my $file = shift @ARGV;

my $excel = Spreadsheet::ParseExcel::Workbook->Parse($file);
my $worksheet = $excel->Worksheet(0);

my $cell = $worksheet->{Cells}[33][13];

print $cell->Value,"\n";

Please advise.

[zentara]

I don't use it, but if you are having trouble dumping your cells, maybe the cells don't exist. Try dumping with xls2tab - Simple MS Excel to TSV converter See what's there.

[Fletch]

Were that the case I'd expect he would be getting an error trying to call the method Value on an undefined value (at least a quick test referencing a cell from an empty sheet in an existing xls file returns undef for me and $sheet->{Cells} is an arrayref with the 0th item being an empty arrayref (so [ [] ])). Never the less you might want to sanity check your indexen versus $sheet->{MaxRow} and $sheet->{MaxCol} (and/or the minimums if you're truly paranoid :), and also check that you've got a defined value before attempting to manipulate it.

my $value;
if( my $cell = $sheet->{Cell}->[$r]->[$c] ) {
  $value = $cell->Value();
}

[sandeep78]

I tried this option. I am doing a sanity check on my excel in the actual program. The script pasted is just a part of it. Interesting thing here is...when I copied data from a cell that is returning me right results to that particular cell. And ran the script. It is giving good result. For ex: Cell (12,11) has 1.29 and the script returns 1.29. So, I copied the 1.29 into my 33,13 cell which is causing the error. And ran the script...it returned 1.29. I am not able to understand the issue here. Please advise.

[sandeep78]

I tried this script...no luck. Thank you.

[jmcnamara]

Try printing the cell {Val} which is the unformatted cell value:

    ...
    print $cell->{Val}, "\n";

--
John.

[sandeep78]

I tried the option, same result. Thank you.

[no21]

In debug mode, continue to a line after you set $cell = $worksheet->{Cells}[33][13].

What do you get when you examine that cell by typing "x $cell" in the debugger?

[sandeep78]

Hi, Please see the debug report below.

  DB<1> x $cell
0  Spreadsheet::ParseExcel::Cell=HASH(0x8f6430c)
   'Code' => undef
   'Format' => Spreadsheet::ParseExcel::Format=HASH(0x8f0eb44)
      'AlignH' => 0
      'AlignV' => 2
      'BdrColor' => ARRAY(0x8f0eb5c)
         0  0
         1  0
         2  0
         3  0
      'BdrDiag' => ARRAY(0x8f0eb8c)
         0  0
         1  0
         2  0
      'BdrStyle' => ARRAY(0x8f0e268)
         0  0
         1  0
         2  0
         3  0
      'Fill' => ARRAY(0x8f0ebc8)
         0  1
         1  42
         2  64
      'FmtIdx' => 43
      'Font' => Spreadsheet::ParseExcel::Font=HASH(0x8c4e080)
         'Attr' => 0
         'Bold' => 0
         'Color' => 32767
         'Height' => 10
         'Italic' => 0
         'Name' => 'Arial'
         'Strikeout' => 0
         'Super' => 0
         'Underline' => 0
         'UnderlineStyle' => 0
      'FontNo' => 0
      'Hidden' => 0
      'Indent' => 0
      'JustLast' => 0
      'Key123' => 0
      'Lock' => 1
      'Merge' => 0
      'ReadDir' => 0
      'Rotate' => 0
      'Shrink' => 0
      'Style' => 0
      'Wrap' => 0
   'FormatNo' => 29
   'Type' => 'Numeric'
   'Val' => '7.42648557919274e+275'
   '_Kind' => 'RK'
   '_Value' => '  742,648,557,919,274,215,596,480,721,467,753,739,797,
+881,839,158,032,045,444,744,972,281,248,374,846,048,088,725,564,424,7
+05,059,145,840,738,686,965,435,358,755,836,749,146,754,873,675,932,60
+0,092,125,946,893,868,194,138,671,244,971,437,781,478,579,517,410,099
+,590,090,026,114,048,017,693,855,644,672,962,827,489,552,711,307,891,
+602,716,747,903,682,255,045,301,108,736.00 '

Thanks

[no21]

Wow, that's a big number.

I work with this module on a daily basis, and when I see weird behavior like this, it is usually due to things like hidden worksheets in the Excel workbook, or the Excel workbook was generated by some other software package.

I don't even know if this is possible via perlmonks.org, but if you're comfortable with posting/attaching the exact Excel file that is giving you this problem, I wouldn't mind taking a look at it myself.

If there's no way to post a file here, I could possibly give you an email address to send the file to.

[zentara]

I tried...no luck

Linux-user says: I think you have an Excel Macro virus. :-)

[jmcnamara]

Looks like a bug in Spreadsheet::ParseExcel version 0.33.

If you can, drop back to using version 0.32 until it is fixed.

--
John.

[no21]

What's the best way to drop back to a previous version of a module?

I guess the real question would be, what's the best way to remove a module?

I tried doing a 'make uninstall' from the source directory, but it refused to delete a handful of files because 'make uninstall' is 'unsafe'.

[jmcnamara]

In this case (and probably most cases) it should be enough to just install the older version over the newer version.

--
John.