When I read an Excel file in, ParseExcel reformates the year to
dd-mm-*yy* (for example 10 dec 2002 is 10-12-*02*).
I don't want this to happen, the format should stay the way it was
dd-mm-*yyyy* (10-12-*2002*).
Here is the code:
use Spreadsheet::ParseExcel;
# Spread-ParseExcel [0.26]
my $oExcel = new Spreadsheet::ParseExcel;
my $oBook = $oExcel->Parse('mail/file.xls');
my($iRow, $iColom, $oWorkSheet, $oSheetCR);
my $iSheet=0;
my @string;
$oWorkSheet = $oBook->{Worksheet}[$iSheet];
for (my $iRow = $oWorkSheet->{MinRow}; defined $oWorkSheet->{MaxRow}
&& $iRow <= $oWorkSheet->{MaxRow} ; $iRow++){
for(my $iColom = $oWorkSheet->{MinCol} ; defined
$oWorkSheet->{MaxCol} && $iColom <= $oWorkSheet->{MaxCol} ; $iColom++) {
$oSheetCR = $oWorkSheet->{Cells}[$iRow][$iColom];
push @string,$oSheetCR->Value if ($oSheetCR);
}
}
Any help is appreciated,
Max
