在保持颜色格式的同时执行从File1到File2的Perl Excel XLS编写

Question

使用Perl编写Excel XLS，我正在从文件1读取并写入文件2。 虽然我的代码成功地从文件1和文件2写入了相同的数据，但是文件2并没有保持与文件1相同的颜色格式（文件1 Excel每隔一行显示一种蓝色和白色格式）。

Perl Excel Parse / Write中是否有一个选项可以保持相同的颜色代码？我已经在CPAN和该站点上进行了研究，但无法找到要在Perl脚本中应用的任何选项。

我的代码：

##! /usr/bin/perl
use v5.10.0;
use warnings;


use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::WriteExcel;


my $parser = Spreadsheet::ParseExcel::SaveParser->new();
my $workbook_R = $parser->parse('C:\Perl\databases\File1.xls');

my $workbook_W = Spreadsheet::WriteExcel->new('C:\Perl\databases\File2.xls');
my $worksheet_W = $workbook_W->add_worksheet();

for my $worksheet_R ($workbook_R->worksheets()) {

my ($row_min, $row_max ) = $worksheet_R->row_range();
my ($col_min, $col_max ) = $worksheet_R->col_range(); 


  for my $row ($row_min .. $row_max ) {
  for my $col ($col_min .. $col_max ) {

  my $value = $worksheet_R->get_cell($row, $col)->value;
  $worksheet_W->write($row, $col, $value);
   }
  }
 }