Betreff : Win32::OLE & Excel->Write Problem

[NixIsFix]

hi,

ich habe ein kleines Problem und auf der Suche nach einer Lösung bin ich hier gelandet, vielleicht köntn ihr mir ja weiterhelfen.

Zum Problem
mein perl script erstellt (bzw soll) eine Reihe von excel files erstellen.
dafür durchläuft es eine Reihe von Dateien und fügt info in die zukünftigen Auswertungsfiles.
Bei einem Auswertungsfile funktioniert es einwandfrei. Bei multiplen files bricht er beim erstellen des 2ten Files ab.

ach ja bin ein kleiner perl noobi

der reduzierte code sieht wie folgt aus:

foreach my $Tmp ( sort keys %Files ) {                                   
       my $workbook = Spreadsheet::WriteExcel->new( "Pfad" . "\\" . "tmp-File.xls" ) || die "Error opening ";
       print STDERR "-Generate $Tmp File...\n";
        $workbook->close();
        unlink( "Pfad" . "\\" . "$Tmp-File". ".xls" );
        my $Excel = Win32::OLE->GetActiveObject('Excel.Application')|| Win32::OLE->new( 'Excel.Application', 'Quit' );
        my $workbook2;
        $workbook2 = $Excel->Workbooks->Open("Pfad" . "\\" . "tmp-File.xls" );
        $workbook2->SaveAs("Pfad" . "\\". "$Tmp-File". ".xls" ,xlExcel9795);
        $workbook2->Close;
        unlink( "Pfad" . "\\" . "tmp-File.xls" );
         
     print STDERR ".... finished\n";
    }

darauhin erscheint beim ausführen folgende Fehlermeldung:

- Generate File1...finished
- Generate File2...

Win32::OLE(0.1709) error 0x800706be: "Der Remoteprozeduraufruf ist
fehlgeschlagen" at PerlScript.pl line 280
        eval {...} called at PerlScript.pl line 280

kann mir irgendjemand helfen?
oder hat jemand ne idee?

[NixIsFix]

hat sich erledigt - fehler selbst gelöst.