我有一个超链接的文本(S)如下。
Please click <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&cmd=Retrieve&dopt=Abstract&list_uids=8395787">here</a> or <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&cmd=Retrieve&dopt=Abstract&list_uids=9568930">here</a> for more info.
但是当我使用Perl模块的write()方法将文本写入单元格时,单元格中的文本显示为纯文本,如上图所示,因此我的问题是如何将文本写入单元格,使其显示为HTML文本,并带有如下所示的可点击超链接。
请单击here或here了解更多信息。
下面是一个简单的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&cmd=Retrieve&dopt=Abstract&list_uids=8395787">here</a> or <a href="http://www.ncbi.nlm.nih.gov/entrez/query.fcgi?db=pubmed&cmd=Retrieve&dopt=Abstract&list_uids=9568930" target=_blank>here</a> for more info.';
$ws->write(0, 0, $text, $format);
$wb->close();
exit 0;
1条答案
按热度按时间ldxq2e6h1#
不幸的是,这在Excel中是不可能的(因此在Excel::Writer::XLSX中也不可能)。每个单元格只能有一个超链接。