Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: Merging worksheets in .xls in one Excel sheet

by toolic (Bishop)
on Sep 20, 2017 at 13:12 UTC ( #1199736=note: print w/replies, xml ) Need Help??


in reply to Merging worksheets in .xls in one Excel sheet

It looks like you are trying to write all rows from all sheets from all input files into one sheet in one output file. The reason you are overwriting data is that you don't increase the row counter between sheets. You need to create a row_count variable outside of all your foreach loops. Then you need to increment it after each write. Maybe something like this UNTESTED:
use Spreadsheet::XLSX; use Excel::Writer::XLSX; (@file_list) = glob "*xlsx"; my $workbook = Excel::Writer::XLSX->new('Target.xlsx'); $worksheet = $workbook->add_worksheet(); my $row_count = 0; foreach my $setoffiles (@file_list) { my $excel = Spreadsheet::XLSX->new("$setoffiles"); foreach my $sheet ( @{ $excel->{Worksheet} } ) { $sheet->{MaxRow} ||= $sheet->{MinRow}; $sheet->{MaxCol} ||= $sheet->{MinCol}; foreach my $row ( $sheet->{MinRow} .. $sheet->{MaxRow} ) { foreach my $col ( $sheet->{MinCol} .. $sheet->{MaxCol} ) { my $cell = $sheet->{Cells}[$row][$col]; if ($cell) { $worksheet->write( $row_count, $col, $cell->{Val} +); $row_count++; } } } } }

Replies are listed 'Best First'.
Re^2: Merging worksheets in .xls in one Excel sheet
by machirajun (Initiate) on Sep 20, 2017 at 14:21 UTC
    no luck and the output is abnormal.
      different .xlsx to one .xlsx

      If you want the Target.xlsx workbook to have a worksheet for each of the different workbooks/worksheets try this

      #!/usr/bin/perl use strict; use Spreadsheet::XLSX; use Excel::Writer::XLSX; my $target = 'Target.xlsx'; my @file_list = glob "*xlsx"; my $workbook = Excel::Writer::XLSX->new( $target ) or die "Could not create $target : $!"; for my $file (@file_list){ next if ($file eq $target); print "Scaning $file\n"; my $excel = Spreadsheet::XLSX->new($file); for my $sheet (@{$excel->{Worksheet}}) { my $name = $file ."_".$sheet->{Name}; my $worksheet = $workbook->add_worksheet( $name ); print "Copying $name\n"; $sheet->{MaxRow} ||= $sheet->{MinRow}; $sheet->{MaxCol} ||= $sheet->{MinCol}; for my $row ($sheet->{MinRow} .. $sheet->{MaxRow}) { for my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) { my $cell = $sheet->{Cells}[$row][$col] ; if ($cell){ $worksheet->write( $row, $col, $cell->{Val} ); } } } } }
      poj
        Hi Thanks for your code but here the requirement is not to create different sheets in target sheet we need to place all the data in one sheet which all the aother .xlsx files have.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1199736]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (2)
As of 2022-08-08 23:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?