Perlを使ってセルに式を書く方法WIN32 :: OLE

Question

Excelのワークシートに式=IF(D2="";"";COUNTIF(D:D;D2))を挿入しようとしました。ここ は、私がしようとしているコードです：

$WorkSheet->Cells($Row2Use,'L')->{Formula} = "=IF(D".$Row2Use."=\"\",\"\",COUNTIF(D:D,D".$Row2Use.")"; # =IF(D2="";"";COUNTIF(D:D;D2)) 

私も成功せず{Value}代わりの{Formula}を使用してみました！ 私は間違っていた

Answer 1

これは私のために働く。 xxfelixxxで指定されたリンクから取得され、変更されたコード。

use Cwd 'abs_path'; 
use Win32::OLE; 
use Win32::OLE qw(in with); 
use Win32::OLE::Const "Microsoft Excel"; 
$Win32::OLE::Warn = 3; 


my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit'); 

$Excel->{Visible} = 1; 

my $Book = $Excel->Workbooks->Add; 
my $Sheet = $Book->Activesheet; 

$Sheet->Range("A1")->{Value} = 1; 
$Sheet->Range("A2")->{Value} = 1; 
$Sheet->Range("A3")->{Formula} = "=SUMA(R[-2]C:R[-1]C)";