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
poj#!/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} ); } } } } }
|
---|
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 | |
by poj (Abbot) on Sep 20, 2017 at 15:36 UTC |
In Section
Seekers of Perl Wisdom