Ho un piccolo problema con un foglio excell. Io dovrei creare un programma che apre un foglio excell ed estrare il valore di 4 variabili. Ho scritto ils eguente codice:
use strict;
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');
my $Book = $Excel->Workbooks->Open("C:\\Users\\Luca\\Documents\\test.xls");
my $Sheet = $Book->Worksheets(1);
my $array = $Sheet->Range("A2")->{'Value'};
my $array2= $Sheet->Range ("B2")->{'Value'};
my $array3= $Sheet->Range ("C2")->{'Value'};
my $array4= $Sheet->Range ("D2")->{'Value'};
$Book->Close;
$a=$array;
$b=$array2;
$c=$array3;
$d=$array4;
purtroppo quando eseguo lo script il compilatore mi restuisce il seguente errore:
Global symbol "$c" requires explicit package name at xls.pl line 19.
Global symbol "$d" requires explicit package name at xls.pl line 20.
Come mai? Dove sbaglio?
Vi ringrazio anticipatamente.
Ciao
Messaggi recenti
