File "excel01.pl.bak"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/excel01.pl.bak
File size: 1.3 KB
MIME-type: text/plain
Charset: 8 bit

use OLE;
use Spreadsheet::WriteExcel;


$xl_file ="c:\\test.xls";

# OLE - Excel Connexion
# Creation d'un objet OLE  - Pointeur d'application Excel 
$xl_appli = CreateObject OLE 'Excel.Application' || die $!;

# paramtrage 
# 0 = non visible
# 1 = visible
$xl_appli->{'visible'} = 0;


# ouvre un fichier Excel 
$workbook = $xl_appli->Workbooks->Open($xl_file);

# active la feuille de travail
$worksheet = $workbook->Worksheets(1);

# revoie des valeurs
$cellA2 = $worksheet->Range("A2")->{'Value'};
$cellB1 = $worksheet->Range("B1")->{'Value'};

print $cellA2 . $cellB1; 


for my $i (0 .. 9)
             { $cell = $worksheet->Range("A2")->{'Value'};
             }

#my $array = $worksheet->Range("A8:B9")->{'Value'};
#my $array = $worksheet->Range("A8:B9")->{'Text'};

# $array[0][0]=  A8 
# $array[0][1]=  B8 
# $array[1][0]=  A9 
# $array[1][1]=  B9

foreach my $ref_array (@$array) {                     # loop through the array
                                                      # referenced by $array
    foreach my $scalar (@$ref_array) {
        print "$scalar\t";
    }
    print "\n";
}

# nomme une cellule
$worksheet->Names->Add({Name => 'NetCost', RefersTo => $Sheet->Range('$B$10')});

# fermeture
$xl_appli->ActiveWorkbook->Close(0);

$xl_appli->Quit();