Win32::OLE & Excel->Write Problem (Allgemeines zu Perl)

[thread]13445[/thread]

Win32::OLE & Excel->Write Problem

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
NixIsFix

2009-04-28 12:04
User since
2009-04-28
16 Artikel
BenutzerIn
hi,

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

Zum Problem
mein perl script erstellt bzw. soll eine Reihe von excel files erstellen.
dafür durchläuft es einen Hash von Dateien und fügt deren info's in die zukünftigen Auswertungsfiles ein. (pro file eine Datei)
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:

Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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:
Code: (dl )

1 2 3 4 5 6

- 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
  
  2009-04-28 12:46
  
  User since
  2009-04-28
  16 Artikel
  BenutzerIn
  
  hat sich erledigt - fehler selbst gelöst.
  
  Lösung : $Excel aus der Schleife genommen.
- +4 replies
- Gast wer
  
  2009-04-28 12:47
  Ohne mich mit Win32::OLE aus zu kennen
  ein paar Tips:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  my $pfad="Pfad\\"; foreach my $Tmp ( sort keys %Files ) { my $tmpfile="${pfad}tmp-File.xls"; my $outputfile="${pfad}${Tmp}-File.xls"; my $workbook1 = Spreadsheet::WriteExcel->new( $tmpfile ) || die "Error opening "; print STDERR "-Generate $outputfile File...\n"; $workbook1->close(); unlink( $outputfile ) if ( -e $outputfile ); my $Excel = Win32::OLE->GetActiveObject('Excel.Application')|| Win32::OLE->new( 'Excel.Application', 'Quit' ); my $workbook2 = $Excel->Workbooks->Open( $tmpfile ); $workbook2->SaveAs($outputfile ,xlExcel9795); # ^ist das so richtig? $workbook2->Close; unlink( $tmpfile ) or print STRDERR "error unlink $tmpfile\n"; print STDERR ".... finished\n"; }
  
  Übrigens deine Beispielausgebe korresponiert nicht mit dem Code.
  - +3 replies
  - NixIsFix
    
    2009-04-28 13:06
    User since
    2009-04-28
    16 Artikel
    BenutzerIn
    
    Guest wer
    Ohne mich mit Win32::OLE aus zu kennen
    ein paar Tips:
    
    Code (perl): (dl )
    
    .....code...
    
    werde ich auchmal ausprobieren(um zu testen ob deine und meine lösung unterschiedlich schnell sind). Danke für die Antwort.
    
    Quote
    Übrigens deine Beispielausgebe korresponiert nicht mit dem Code.
    
    stimmt ;)- File taucht einmal zu wenig auf - habe die Ausgaben / Dateinamen / Hashes und Pfadfindung geändert da sie nix zur Sache tun bei dem Problem (sondern es nur unübersichtlicher gemacht hätten).
    - +2 replies
    - Gast wer
      
      2009-04-28 13:21
      
      Es ging mir nicht umbedingt um die Geschwindgkeit sondern um die Übersichtlichkeit und Fehleranfälligkeit.
      Das immer wiederkehrende zusammenfügen von gleichen Strings führt schnell zu Tippfehlern und macht das ändern von Pfaden und Namen schwierig.
      - NixIsFix
        
        2009-04-28 13:39
        
        User since
        2009-04-28
        16 Artikel
        BenutzerIn
        
        der Hauptpfad wird eh in einem HoH gespeichert - jedoch setzt sich der Dateiname aus 1 statischen konstante und 3 variablen zusammen.
        
        ansonsten hast du recht. man sollte strings so weit wie möglich zusammen zu fassen.
        (habe ich aus komplexen projekten in anderen sprachen sprachen schon gelernt, bin ja nur perl noobi ;))

View all threads created 2009-04-28 12:04.