jsuresh has asked for the wisdom of the Perl Monks concerning the following question:

Hi Team, I'm trying to read an XLSX file and write it as XLSX file. I can read it but unable to print it as a new XLSX file. I have also used the required module XLSX::writer but still it is now allowing me to create a new xlsx file. I also need to to check for the values starting from 0.00 and replace it as '0.00'(just wanted to add a single quotes to it). please provide us a solution. It is not allowing me to proceed further.


use Spreadsheet::XLSX; my $excel = Spreadsheet::XLSX -> new ('/tmp/temp.xlsx'); print $excel; my @array; my $workbook = Excel::Writer::XLSX->new( 'perl.xlsx' ); #my $FILENAME="/tmp/Newfile.xls"; my $workbook = Spreadsheet::WriteExcel->new("$FILENAME"); my $worksheet1=$workbook->addworksheet("Worksheet1"); $worksheet1->write( "A1", "Hi Excel!" ); foreach my $sheet (@{$excel -> {Worksheet}}) { printf("Sheet: %s\n", $sheet->{Name}); $sheet -> {MaxRow} ||= $sheet -> {MinRow}; foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow}) { $sheet -> {MaxCol} ||= $sheet -> {MinCol}; foreach my $col ($sheet -> {MinCol} .. $sheet -> {MaxC +ol}) { my $cell = $sheet -> {Cells} [$row] [$col]; if ($cell) { printf("( %s , %s ) => %s\n", $row, $col, $ +cell -> {Val}); my $temp=$cell->{Val}; $worksheet1->write($row,$col,$cell -> {Val} +); # push(@array,$temp); # $sheet->write($row,$col,"CHECK"); } } } last

2019-03-30 Athanasius removed paragraph tags from code and added code tags