Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Preserving merged cells when using Spreadsheet::WriteExcel and ParseExcel

by metaperl (Curate)
on Sep 30, 2011 at 15:18 UTC ( #928832=perlquestion: print w/replies, xml ) Need Help??
metaperl has asked for the wisdom of the Perl Monks concerning the following question:

I'm attempting to modify an Excel spreadhsheet which spreadsheet has a merged cell at D8.

I wrote a small program which reads the format of D8 and writes some data back to D8 in a new sheet with that formatting:

#!/usr/bin/perl -w use strict; use Smart::Comments; use Spreadsheet::ParseExcel; use Spreadsheet::ParseExcel::SaveParser; # Open the template with SaveParser my $parser = new Spreadsheet::ParseExcel::SaveParser; my $template = $parser->Parse('sat.xls'); warn "template:$template:"; my $sheet = 0; my $workbook; { # SaveAs generates a lot of harmless warnings about unset # Worksheet properties. You can ignore them if you wish. local $^W = 0; # Rewrite the file or save as a new file $workbook = $template->SaveAs('new.xls'); } # Use Spreadsheet::WriteExcel methods my $worksheet = $workbook->sheets(0); my $row = 7; my $col = 3; # Get the format from the cell my $format = $template->{Worksheet}[$sheet]->{Cells}[$row][$col]->{For +matNo}; $worksheet->write( $row, $col => 'some_originating_entity', $format );

However, the new sheet has all the merged cells unmerged.

Is there a way to preserve merged cells when updating/modifying cells in the template spreadsheet?

Both the program and the initial spreadsheet are here
  • Comment on Preserving merged cells when using Spreadsheet::WriteExcel and ParseExcel
  • Download Code

Replies are listed 'Best First'.
Re: Preserving merged cells when using Spreadsheet::WriteExcel and ParseExcel
by metaperl (Curate) on Sep 30, 2011 at 18:09 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://928832]
Approved by keszler
help
Chatterbox?
MidLifeXis waves.
[stevieb]: man, I absolutely LOVE driving in the worst winter conditions. In the mountainous roads, there are extremely few (if any) other drivers. I love the challenge. I've been doing extreme off-road my whole life, and as I said, I'm always well...
[stevieb]: ...prepared for even the very worst
Discipulus seems a part of the globe very unfrindly with Kawasaki riders..
[thezip]: My doggies love it when it snows
[perldigious]: As long as you are a good "boy scout" stevieb, more power to you... but I like my Jeep, and don't like the idea of rolling it or crashing it in to anything. :-)
[thezip]: Me, not as much.
[perldigious]: Mine too thezip, especially my German Shepherd. He looks like he is about to die of heat exhaustion all summer, so he goes nuts when winter comes and he can play in the snow.
[stevieb]: my main off-road vehicle nowadays is a strengthened mercedes ML320. I'm very hard on it, but I've never had any real issues at all (I love how small and light it is, and it has a very, very good centre of gravity for how I roll)

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (11)
As of 2016-12-06 16:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (112 votes). Check out past polls.