[Perl - Win32::OLE] Gestione file Excel aperto

[basileus_82]

Ciao a tutti

devo gestire dei filoe excel

tutto fatto, solo che ogni volta che il file excel è aperto, quando faccio partire il programma, me lo chiude

...
my $file='Book.xls';
my $excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $workbook = $excel->Workbooks->Open( $file) or die "Error: can't open Workbook '$file'\n";

il problema potrebbe essere nel metodo Open che, eseguito, se trova $file aperto lo chiude e poi lo riapre

ho provato a fare un controllo

sub isWbOpen {
  my $file=shift;
  my $excel=shift;
  if ($excel->Workbooks($file)->Activate) {
    return 1;
  } else {
   return 0;
  }
}

e quindi :

....
my $file='Book.xls';
my $excel = Win32::OLE->GetActiveObject('Excel.Application') ||          Win32::OLE->new('Excel.Application', 'Quit');
my $workbook;
if (isWbOpen($file,$excel)) {
$workbook=$excel->Workbooks($file)->Activate; 
} else {
$workbook = $excel->Workbooks->Open( $file) or die "Error: can't open Workbook '$file'\n";
}
....

ma mi da errore, puù che altro mi dice che sto cercando di usare metodo activate su un valore non definito all'interno della routine isWbOpen
avete qualche suggerimento??

Grazie