I use the xls2csv utility that comes with Spreadsheet::ParseExcel.
Here's how I use it:
#!/usr/bin/perl
use warnings;
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::Utility qw(xls2csv);
my $content = xls2csv('myspreadsheet.xls', 'A5:Q164');
# $content is now the spreadsheet in csv format
my @lines = split/\n/, $content;
HTH,
Kevin
On Fri, 2004-05-21 at 13:35, Jeff Westman wrote:
> I just did this in fact using CSV.pm, worked great! See:
>
> http://search.cpan.org/~alancitt/Text-CSV-0.01/CSV.pm
>
>
>
>
> --- "DiGregorio, Dave" <[EMAIL PROTECTED]> wrote:
> > Does anyone know, what is the best way to retrieve text data from
> > an Excel
> > Spreadsheet? I have tried the code below and it returns errors.
> > I can not
> > even get the name of the file to print!
> >
> >
> >
> >
> >
> >
> >
> > #! usr/bin/perl -w
> >
> >
> >
> > use strict ;
> >
> > use Spreadsheet::ParseExcel ;
> >
> > my $oExcel = new Spreadsheet::ParseExcel::Workbook ;
> >
> >
> >
> > my $oBook = $oExcel->Parse('Excel/Test.xls') ;
> >
> >
> >
> > print "File :" , $oBook->{File} , "\n" ;
> >
> > print "Count :" , $oBook->{SheetCount} , "\n" ;
> >
> > print "Author :" , $oBook->{Author} , "\n" ;
> >
> > I
> >
> >
> >
> > Thanks
> >
> >
> >
> > David
> >
> >
>
>
>
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Domains Claim yours for only $14.70/year
> http://smallbusiness.promotions.yahoo.com/offer
--
Kevin Old <[EMAIL PROTECTED]>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
