Question

I am using Spreadsheet::WriteExcel to create an excel and write some data into it.
I am using the merge_range to merger some cells.
But the problem is my below code does merge cells but dont show the data in it ($str contents).
I am not able to figure out why????.

Please help me, where did i going wrong?

Below is the part of my code:

#!/usr/bin/perl

use Spreadsheet::WriteExcel;
use strict;

my $wb = Spreadsheet::WriteExcel->new('excel_test.xls');
my $custom_ws = $wb->add_worksheet('Custom Parameters');

my $wb_format_merge = $wb->add_format();
$wb_format_merge->set_bold();
$wb_format_merge->set_text_wrap();
$wb_format_merge->set_border(1);
$wb_format_merge->set_align('left');
$wb_format_merge->set_valign('vcenter');

my($row, $coll) = 0;
my $merge_coll_len = 8;

###### write data ###
my $str = "Please select the follwong metrics to generate custom report in Details sheet";
$custom_ws->merge_range($row, $coll, $row, $coll + $merge_coll_len, $str,$merge_format);

$row += 2;
$custom_ws->write($row, $coll, 'select the data type for the reference');

Answer 1

my($row, $coll) = 0;

$coll is undefined

use

my($row, $coll)=(0,0);

Using 4 row,coll,row,coll for the merge_range is perfectly valid (provided they have values 😉 )