SYNOPSIS

use Text::Iconv;
my $converter = Text::Iconv -> new ("utf-8", "windows-1251");

# Text::Iconv is not really required.
# This can be any object with the convert method. Or nothing.
use Spreadsheet::XLSX;

my $excel = Spreadsheet::XLSX -> new ('test.xlsx', $converter);

foreach my $sheet (@{$excel -> {Worksheet}}) {

printf("Sheet: %s\n", $sheet->{Name});

$sheet -> {MaxRow} ||= $sheet -> {MinRow};

foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) {

$sheet -> {MaxCol} ||= $sheet -> {MinCol};

foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) {

my $cell = $sheet -> {Cells} [$row] [$col];

if ($cell) {
printf("( %s , %s ) => %s\n", $row, $col, $cell -> {Val});
}

}

}

}

DESCRIPTION

This module is a (quick and dirty) emulation of Spreadsheet::ParseExcel for Excel 2007 (.xlsx) file format. It supports styles and many of Excel's quirks, but not all. It populates the classes from Spreadsheet::ParseExcel for interoperability; including Workbook, Worksheet, and Cell.

AUTHOR

Dmitry Ovsyanko, <[email protected]<gt>, http://eludia.ru/wiki/

Patches by:

        Steve Simms
        Joerg Meltzer
        Loreyna Yeung   
        Rob Polocz
        Gregor Herrmann
        H.Merijn Brand
        endacoe
        Pat Mariani
        Sergey Pushkin

ACKNOWLEDGEMENTS

        Thanks to TrackVia Inc. (http://www.trackvia.com) for paying for Rob Polocz working time.

COPYRIGHT AND LICENSE

Copyright (C) 2008 by Dmitry Ovsyanko

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.