foreach my $WorksheetObject (@{$BookObject->{Worksheet}}) {
print "
\n";
for(my $RowIndex = '0'; # starting at minimu+m row value
defined $WorksheetObject->{MaxRow} &&
$RowIndex <= '7'; # ending at maximum +row value
$RowIndex++) {
print "";
for (my $ColumnIndex = '0';
defined $WorksheetObject->{MaxCol} &&
$ColumnIndex <= '2';
$ColumnIndex++) {
my $CellObject = $WorksheetObject->{Cells}[$RowIndex][$ColumnIndex]; # get cell
#print "($RowIndex, $ColumnIndex)",
print "" . $CellObject->Value . " | " if ($CellObject);
}
print "
\n";
}
print "
\n";
}