0

我有一个带有超链接的文本，如下所示。

Please click <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&amp;cmd=Retrieve&amp;dopt=Abstract&amp;list_uids=8395787">here</a> or <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&amp;cmd=Retrieve&amp;dopt=Abstract&amp;list_uids=9568930">here</a> for more info.

但是当我使用 Perl 模块的 write() 方法将文本写入单元格时，单元格中的文本显示为纯文本，如上所示。所以我的问题是如何将文本写入单元格，以便将其显示为 HTML 文本，超链接可点击如下。

请点击这里或这里了解更多信息。

下面是一个简单的 Perl 脚本的代码，它创建一个 xlsx 文件，其中包含一个包含超链接文本的单元格。谢谢。

#!/usr/bin/perl

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

my ($wb, $ws, $format1, $format2, $f_url, $rn);

my $wb = Excel::Writer::XLSX->new('/data/tmp/reference.xlsx');
my $ws = $wb->add_worksheet();
my $format = $wb->add_format(align => 'left');
my $text = 'Please click <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&amp;cmd=Retrieve&amp;dopt=Abstract&amp;list_uids=8395787">here</a> or <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&amp;cmd=Retrieve&amp;dopt=Abstract&amp;list_uids=9568930" target=_blank>here</a> for more info.';
$ws->write(0, 0, $text, $format);
$wb->close();

exit 0;
4

1 回答 1

1

不幸的是，这在 Excel 中是不可能的（因此在 Excel::Writer::XLSX 中也不可能）。每个单元格只能有一个超链接。

于 2022-02-16T21:54:06.237 回答