This queue is for tickets about the Spreadsheet-XLSX CPAN distribution.

Report information
The Basics
Id:
82594
Status:
new
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
jjohnson [...] asocorp.com
Cc:
AdminCc:

BugTracker
Severity:
Normal
Broken in:
(no value)
Fixed in:
(no value)



Subject: {MinCol} fails for some spreadsheets with null A1
MIME-Version: 1.0
X-Mailer: MIME-tools 5.427 (Entity 5.427)
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1357789177-12255-2"
X-RT-Encrypt: 0
X-RT-Sign: 0
Content-Length: 0
Content-Type: text/plain; charset="UTF-8"
Content-Disposition: inline
Content-Transfer-Encoding: binary
Content-Length: 1203
I think the following is failing for the attached spreadsheet: my $excel = Spreadsheet::XLSX -> new ('test.xlsx'); If you execute a script that prints the values of the first two columns for all rows it will not print any column A value for the attached spreadsheet (a sample of many that also fails). If you change A1 to space, delete the space, then save (or use Excel to save to another file) everything is fine. See test script below: ++++++++++++++++++++++++++++++++++++++++++++ my $excel = Spreadsheet::XLSX -> new ('test.xlsx'); # this line could be failing if the creation determines {MinCol} foreach my $sheet (@{$excel -> {Worksheet}}) { printf("Sheet: %s\n", $sheet->{Name}); $sheet -> {MaxRow} ||= $sheet -> {MinRow}; foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) { $sheet -> {MaxCol} ||= 0; foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxCol}) { my $cell = $sheet -> {Cells} [$row] [$col]; # this returns a null value for all rows before saving the spreadsheet if ($cell) { printf("( %s , %s ) => %s\n", $row, $col, $cell -> {Val}); } else { printf("( %s , %s ) => %s\n", $row, $col); } } }
Subject: test.xlsx
MIME-Version: 1.0
Content-Type: application/octet-stream; name="test.xlsx"
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline; filename="test.xlsx"
Content-Transfer-Encoding: base64
Content-Length: 5453

Message body not shown because it is not plain text.



This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.