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

$excel->{ReferenceStyle} = $xl->{xlR1C1}; #  Z1S1-Bezugsart

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

$sheet->Range( 'A3' )->{Value} = 3;
$sheet->Range( 'B3' )->{FormulaR1C1} = '=WENN( ZS(-1) > 5; "OK"; "Not OK")';

$sheet->Range( 'G1' )->{Value} = 3;
$sheet->Range( 'G2' )->{Value} = 7;
$sheet->Range( 'G3' )->{Value} = 6;
$sheet->Range( 'G4' )->{FormulaR1C1} = '=SUMME(Z(-3)S:Z(-1)S)';


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