使用perl链接excel工作表

时间:2016-09-28 05:12:34

标签: excel perl hyperlink

我正在尝试编写一个perl脚本,它使用perl将第一个工作表中的单元格值链接到第二个工作表中的值。 我尝试使用perl中提供的以下模块: -

  1. 的Excel ::作家:: XLSX

  2. 电子表格:: WriteExcel

  3. 任何人都可以使用一个简单的perl脚本来帮助我。

    示例: -

    Worksheet1

    enter image description here

    Worksheet2

    enter image description here

    因此,在上面的示例中,工作表1中的规则列项 R1 R2 R3 应该是将我们带到规则列的超链接点击时 R1 R2 R3 项目。

    有人可以告诉我如何使用perl或至少如何使用模块 Spreadsheet :: WriteExcel Excel :: Writer :: XLSX 这个问题。

    请帮帮我.. !!

1 个答案:

答案 0 :(得分:4)

使用Excel :: Writer :: XLSX,您将使用write_url后跟write_formula方法。这是一个例子:

#!/usr/bin/perl
use strict;
use Excel::Writer::XLSX;
my $workbook = Excel::Writer::XLSX->new( 'test.xlsx' );
my $worksheet1 = $workbook->add_worksheet('Worksheet1');
my $worksheet2 = $workbook->add_worksheet('Worksheet2');

$worksheet2->write_string(0,0, 'Rules'); 
$worksheet2->write_string(1,0, 'R1');
$worksheet2->write_string(2,0, 'R2');
$worksheet2->write_string(3,0, 'R3');

my $format = $workbook->add_format( color => 'blue', underline => 1 );
$worksheet1->write_url( 1,1,  'internal:Worksheet2!A2', $format);
$worksheet1->write_formula( 1, 1, '=Worksheet2!A2' );