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)";