如何使用Win32 :: OLE設置Excel公式？

Question

誰能告訴我，為什么...->{FormulaR1C1} = '=SUMME( "R[-3]C:R[-1]C" )'; 不起作用。 在顯示結果的單元格中，我得到“ #Wert！”。 （也許是英語中的“值”）。 使用WENN（IF）公式，我得到了期望的結果。

#!C:\Perl\bin\perl.exe
use warnings;
use strict;
use Win32::OLE qw;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $xl = Win32::OLE::Const -> Load( 'Microsoft Excel' );
my $excelfile = 'win32_ole_excel.xls';
my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' ) or die $!;

my $workbook = $excel -> Workbooks -> Add();
my $sheet = $workbook -> Worksheets( 1 );
$sheet -> Activate;


$sheet->Range( 'A3' )->{Value} = 10;
$sheet->Range( 'B3' )->{FormulaR1C1} = '=WENN( "RC[-1]" > 5; "OK"; "Not OK")'; # IF(,,); workes fine


$sheet->Range( 'G1' )->{Value} = 3;
$sheet->Range( 'G2' )->{Value} = 7;
$sheet->Range( 'G3' )->{Value} = 6;
$sheet->Range( 'G4' )->{FormulaR1C1} = '=SUMME( "R[-3]C:R[-1]C" )'; # SUM(); doesn't work


$workbook -> SaveAs( { Filename => $excelfile, FileFormat => xlWorkbookNormal } );

Answer 1

您不需要SUM范圍內的引號。 應該明確：

=SUMME(R[-3]C:R[-1]C)

另外一點-您的IF / WENN公式不正確。 它試圖將字符串“ RC [-1]”與數字5進行比較，並得出YES！ 字符串更大。 它並沒有按照您認為的那樣做...您也應該在此處引用周圍的引號。

編輯：這是您的代碼我的版本，其運行沒有任何錯誤。 更改被評論。 必須對英語版本的Excel應用一些更改。 針對ActivePerl 5.10.1 Build 1006運行 。

#!C:\Perl\bin\perl.exe
use warnings;
use strict;
# CHANGE - empty qw caused compilation error
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;
my $xl = Win32::OLE::Const -> Load( 'Microsoft Excel' );
# CHANGE - set path
my $excelfile = 'C:\win32_ole_excel.xls';
my $excel = Win32::OLE -> GetActiveObject( 'Excel.Application' ) || Win32::OLE -> new( 'Excel.Application', 'Quit' ) or die $!;

my $workbook = $excel -> Workbooks -> Add();
my $sheet = $workbook -> Worksheets( 1 );
$sheet -> Activate;

$sheet->Range( 'A3' )->{Value} = 10;
# CHANGE - Use IF, use commas, took quotes out around range
$sheet->Range( 'B3' )->{FormulaR1C1} = '=IF( RC[-1] > 5, OK, Not OK)'; # IF(,,); workes fine

$sheet->Range( 'G1' )->{Value} = 3;
$sheet->Range( 'G2' )->{Value} = 7;
$sheet->Range( 'G3' )->{Value} = 6;
# CHANGE - Use SUM, took quotes out around range
$sheet->Range( 'G4' )->{FormulaR1C1} = '=SUM(R[-3]C:R[-1]C)'; # SUM(); doesn't work

$workbook -> SaveAs( { Filename => $excelfile, FileFormat => xlWorkbookNormal } );

Answer 2

在perl-community.de的幫助下，我現在有了一個解決方案：我必須設置

$excel->{ReferenceStyle} = $xl->{xlR1C1};

並使用Z1S1代替R1C1

=SUMME(Z(-2)S:Z(-1)S)

但是看起來好像在德語版本中，我必須在A1和Z1S1 （ R1C1 ）表示法之間進行選擇。