Re^2: Scan cells in Excel active worksheet

OK, I explained badly!

The Excel file is saved to disk on the linux server.

I use the following commands to get acces to the Excel file

$parser = Spreadsheet::ParseExcel->new();

$parser = Spreadsheet::ParseXLSX->new();

I use one of the above depending on whether the file is .xls or .xlsx. Then I use:

my $workbook = $parser->parse($FileName);

It's the next part that is causing the problem. currently I loop through all worksheets with

for my $worksheet ( $workbook->worksheets() )

But I really only want to work with the active worksheet.

gauss76

Comment on Re^2: Scan cells in Excel active worksheet Select or Download Code

Replies are listed 'Best First'.
Re^3: Scan cells in Excel active worksheet by huck (Prior) on Apr 03, 2017 at 15:29 UTC
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. http://cpansearch.perl.org/src/DOUGW/Spreadsheet-ParseExcel-0.65/lib/Spreadsheet/ParseExcel/Workbook.pm `sub get_active_sheet { my $workbook = shift; return $workbook->{ActiveSheet}; }` [download] Maybe you can work from that for parseXLSX	[reply] [d/l]
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


Perl Monk, Perl Meditation
	PerlMonks