use strict; use Spreadsheet::ParseExcel; my $BookObject = Spreadsheet::ParseExcel::Workbook->Parse("testbook.xls"); foreach my $WorksheetObject (@{$BookObject->{Worksheet}}) { for(my $RowIndex = '0'; # starting at minimu+m row value defined $WorksheetObject->{MaxRow} && $RowIndex <= '7'; # ending at maximum +row value $RowIndex++) { for (my $ColumnIndex = '0'; defined $WorksheetObject->{MaxCol} && $ColumnIndex <= '2'; $ColumnIndex++) { my $CellObject = $WorksheetObject->{Cells}[$RowIndex][$ColumnIndex]; # get cell #print "($RowIndex, $ColumnIndex)", print $CellObject->Value, "\n" if ($CellObject); } } } #### Sales B3 B4 Low Power Components 5000000 460000 Virtual Wire Products 27000 23000 Filter Products 45000 3700000 Frequency Control Modules 10000 7000 Technology Developments 10000 2000 Total Sales 113000 115000