I am able to read an excel spreadsheet using perl. I save the read data to an .csv file. My question is, in the excel spreadsheet some columns have ##### where the column data is larger than the column display. Well in my .csv file I still have the #####'s. Help. Thanks. My code is as follows:
#!/usr/bin/perl
use warnings;
use strict;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $ofilename = ("> excel_works.csv");
open (OFILE, $ofilename);
my $excel = Win32::OLE->GetActiveObject ('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
$excel->{'Visible'} = 0;
my $workbook = $excel->Workbooks->Open("c:\\cm\\cm_perl\\excel\\test.xls");
my $worksheet = $workbook->Worksheets(1);

my $row = 1;
while ($worksheet->Cells($row, 1)->{'Text'})
{
print OFILE
(
$worksheet->Cells($row, 1)->{'Text'}.",".
$worksheet->Cells($row, 2)->{'Text'}.",".
$worksheet->Cells($row, 3)->{'Text'}.",".
$worksheet->Cells($row, 4)->{'Text'}.",".
$worksheet->Cells($row, 5)->{'Text'}.",".
$worksheet->Cells($row, 6)->{'Text'}.",".
$worksheet->Cells($row, 7)->{'Text'}.",".
$worksheet->Cells($row, 8)->{'Text'}.",".
$worksheet->Cells($row, 9)->{'Text'}."\n"
);
$row++;
}#end while

$workbook->Close;
close (OFILE);
print "end of program Excel Works.\n";
#