Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^3: Merging worksheets in .xls in one Excel sheet

by poj (Abbot)
on Sep 20, 2017 at 15:13 UTC ( #1199754=note: print w/replies, xml ) Need Help??


in reply to Re^2: Merging worksheets in .xls in one Excel sheet
in thread Merging worksheets in .xls in one Excel sheet

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

Replies are listed 'Best First'.
Re^4: Merging worksheets in .xls in one Excel sheet
by machirajun (Initiate) on Sep 20, 2017 at 15:31 UTC
    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.

      Does that mean that each of the different sheets uses a different range of cells ?

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2022-05-17 01:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (65 votes). Check out past polls.

    Notices?