Re^3: Scan cells in Excel active worksheet

http://search.cpan.org/~dougw/Spreadsheet-ParseExcel-0.65/lib/Spreadsheet/ParseExcel/Workbook.pm

get_active_sheet()

Return the number of the active (open) worksheet (at the time the workbook was saved. May return undef.

sub get_active_sheet {
    my $workbook = shift;

    return $workbook->{ActiveSheet};
}
[download]

Maybe you can work from that for parseXLSX

Comment on Re^3: Scan cells in Excel active worksheet Download Code

Replies are listed 'Best First'.
Re^4: Scan cells in Excel active worksheet by gauss76 (Scribe) on Apr 04, 2017 at 13:07 UTC
Many thanks huck for the answer, which works fine for .xls files with the code: `my $FileName = "Excel Test File 1.xls";` `my $parser = Spreadsheet::ParseExcel->new();` `my $workbook = $parser->parse($FileName);` `my $Res1=get_active_sheet($workbook);` But I have no idea how to get it to work with xlsx files, which, currently fails if I try the following: `my $FileName = "Excel Test File 1A.xlsx";` `my $parser = Spreadsheet::ParseXLSX->new();` `my $workbook = $parser->parse($FileName);` `my $Res1=get_active_sheet($workbook);` gauss76	[reply] [d/l] [select]
Re^5: Scan cells in Excel active worksheet by SuicideJunkie (Vicar) on Apr 06, 2017 at 13:47 UTC
A quick peek through the source, and I spotted: `my ($node) = $files->{workbook}->find_nodes('//s:workbookView'); my $selected = $node ? $node->att('activeTab') : undef; $workbook->{SelectedSheet} = defined($selected) ? 0+$selected : 0;` [download] Will `$workbook->{SelectedSheet}` work do the trick?	[reply] [d/l] [select]
Re^6: Scan cells in Excel active worksheet by gauss76 (Scribe) on Apr 07, 2017 at 08:29 UTC
Fantastic!! Many thanks for everyone's help with this...Special thanks must go to SuicideJunkie. The solution will really help me with my project. gauss76	[reply]