如何获得Perl的Spreadsheet :: WriteExcel以使用VLOOKUP创建公式？

我在Spreadsheet::WriteExcel和使用VLOOKUP的公式中遇到了问题。以下测试脚本使用一些数据填充工作表并尝试创建VLOOKUP公式。当我打开生成的Excel文件时，公式结果显示为#VALUE!。如果我手动编辑任何包含公式的单元格（按F2，然后按ENTER键而不更改任何内容），我可以使用Excel来正确评估公式。任何想法出了什么问题？如何获得Perl的Spreadsheet :: WriteExcel以使用VLOOKUP创建公式？

对于什么是值得的，如果我在OpenOffice中打开相同的文件，公式工作正常。

use strict; 
use warnings; 
use Spreadsheet::WriteExcel; 

my $wb = Spreadsheet::WriteExcel->new('foo.xls'); 
my $ws = $wb->add_worksheet; 

for my $r (0 .. 9){ 
    for my $c (0 .. 4){ 
     $ws->write($r, $c, $r * 10 + $c); 
    } 
    $ws->write($r, 10, $r * 10); 
    my $formula = sprintf('=VLOOKUP(K%s, A1:B10, 2, FALSE)', $r + 1); 
    $ws->write($r, 11, $formula); 
    # $ws->write_formula($r, 11, $formula); # Does not help either. 
}

版本信息：

的Excel 2007 SP2。
Spreadsheet :: WriteExcel：试过2.25和2.37。

来源

2010-02-09 FMc

您使用的是什么版本的'Spreadsheet :: WriteExcel'？您的代码在OSX上使用Excel在2.25中正常工作。可能只是你的Excel安装？ – 2010-02-09 19:34:03

确实调用了write_formula而不是写入工作？ – ysth 2010-02-09 20:00:17

@ysth和@Jack M.好主意，但没有运气。我使用版本信息编辑了问题。 – FMc 2010-02-09 21:00:48

我是Spreadsheet :: WriteExcel的作者。

这是公式分析器和WriteExcel中某些公式类型的已知错误。您可以使用store_formula()和repeat_formula()解决它，如下图所示：

use strict; 
use warnings; 
use Spreadsheet::WriteExcel; 

my $wb = Spreadsheet::WriteExcel->new('foo.xls'); 
my $ws = $wb->add_worksheet; 

my $formula = $ws->store_formula('=VLOOKUP(K1, A1:B10, 2, FALSE)'); 

# Workaround for VLOOKUP bug in WriteExcel. 
@$formula = map {s/_ref2d/_ref2dV/;$_} @$formula; 

for my $r (0 .. 9){ 
    for my $c (0 .. 4){ 
     $ws->write($r, $c, $r * 10 + $c); 
    } 
    $ws->write($r, 10, $r * 10); 

    $ws->repeat_formula($r, 11, $formula, undef, qr/^K1$/, 'K' . ($r +1)); 
}

来源

2010-02-09 21:29:35 jmcnamara

非常感谢。我很感激帮助。 – FMc 2010-02-09 21:55:22

有趣的是，OP报告它在OpenOffice中工作 – ysth 2010-02-10 04:30:29

您能解释解决方法吗？我在Ruby中使用WriteExcel - https://github.com/cxn03651/writeexcel并面临同样的问题。我想知道在变通方法中发生了什么，以便我可以在Ruby中对其进行编码。谢谢 – 2011-06-02 12:48:07

我writeexcel rubygem的维护者。例如，，ruby代码如下。

require 'rubygems' 
require 'writeexcel' 

wb = WriteExcel.new('fooruby.xls') 
ws = wb.add_worksheet 

formula = ws.store_formula('=VLOOKUP(K1, A1:B10, 2, FALSE)') 

# Workaround for VLOOKUP bug in WriteExcel. 
formula.map! {|f| f.sub(/_ref2d/, '_ref2dV') } 

(0..9).each do |row| 
    (0..4).each { |col| ws.write(row, col, row * 10 + col) } 
    ws.write(row, 10, row * 10) 
    ws.repeat_formula(row, 11, formula, nil, /^K1$/, "K#{row+1}") 
end 

wb.close

来源

2011-06-03 04:45:26 cxn03651

谢谢cxn03651。 – 2011-06-03 07:20:12

如何获得Perl的Spreadsheet :: WriteExcel以使用VLOOKUP创建公式？

回答

相关问题