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} ); } } } } }
In Section
Seekers of Perl Wisdom