Though I'm pretty sure you can parse xlsx, I've never done it. I'd start by
finding the error method of the module and .. or die "something useful " .
$ws->error; also note there's a mailing for these modules - you might
search and ask there too.
On May 25, 2012 3:49 AM, "Ken cthrogglazx" <frazzmata...@gmail.com> wrote:
> im running this in activeperl in windows.
>
> my $parser = Spreadsheet::ParseExcel->new();
> my $workbook = $parser->parse('build.xlsx');
>
> if ( !defined $workbook ) {
> die $parser->error(), ".\n";
> }
>
> for my $worksheet ( $workbook->worksheets() ) {
>
> my ( $row_min, $row_max ) = $worksheet->row_range();
> my ( $col_min, $col_max ) = $worksheet->col_range();
>
> for my $row ( $row_min .. $row_max ) {
> for my $col ( $col_min .. $col_max ) {
>
> my $cell = $worksheet->get_cell( $row, $col );
> next unless $cell;
>
> print "Row, Col = ($row, $col)\n";
> print "Value = ", $cell->value(), "\n";
> print "Unformatted = ", $cell->unformatted(), "\n";
> print "\n";
> }
>
> }
> }
>
> Im getting the error "no excel data found in file" but its an excel
> spresadsheet .xlsx (so after 2007)
> and it is a spreadsheet with 3 sheets and almost 1000 rows of data. I
> need to pull all the data from two different columns for comparison. I
> was just starting out with trying to get the data from the
> spreadsheet. anyone know whats up?
>
> ken
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
