使用perl格式化数字并在excel中使用内部超链接

时间:2018-04-26 17:20:43

标签: excel perl

我正在尝试编写一个perl脚本,我试图在单元格中舍入小数值(但如果我将鼠标悬停在公式栏中的单元格上,它仍应显示十进制数字)并添加内部超链接到另一张工作表。

在下面的屏幕截图中,通过代码生成的xlsx不会舍入数字,但内部超链接可以正常工作。我在单元格上出现错误,如屏幕截图所示。

worksheet1

以下是示例代码。

 #!/usr/bin/perl

 use strict;
 use warnings;
 use Excel::Writer::XLSX;

 my $workbook = Excel::Writer::XLSX->new( 'test.xlsx' );

 my $worksheet1 = $workbook->add_worksheet('worksheet1');

 my $worksheet2 = $workbook->add_worksheet('worksheet2');


 my $format = $workbook->add_format( color => 'green', num_format => '00');

 my $format2 = $workbook->add_format( color => 'black');

 $worksheet1->write_string('A1', 'Rates',$format2);

 $worksheet1->write('A2', 'internal:Worksheet2!A2', 123.23, $format);

 $worksheet1->write('A3', 'internal:Worksheet2!A3', 143.53, $format);

 $worksheet1->write('A4', 'internal:Worksheet2!A4', 163.00, $format);

 $worksheet2->write_string('A1', 'Rates', $format2);

 $worksheet2->write_string('B1', 'Description', $format2);

 $worksheet2->write('A2', 123.23);

 $worksheet2->write_string('B2', 'xyz', $format2);

 $worksheet2->write('A3', 143.53);

 $worksheet2->write_string('B3', 'abc', $format2);

 $worksheet2->write('A4', 163.00);

 $worksheet2->write_string('B4', 'def',$format2);

有没有办法可以整理数字并添加内部超链接?

0 个答案:

没有答案