Perl - Excel problem...Sheet kopieren (Allgemeines zu Perl)

[thread]13482[/thread]

Perl - Excel problem...Sheet kopieren

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
NixIsFix

2009-05-06 16:53
User since
2009-04-28
16 Artikel
BenutzerIn
Da bin ich wieder,

habe ein kleines Problem und bin noch nicht auf eine Lösung gestoßen.
wie kann ich ein worksheet aus einem excelfile in ein anderes kopieren/verschieben?

bin weder mit
Code (perl): (dl )

Win32::OLE::Const 'Microsoft Excel'
noch mit
Code (perl): (dl )

Spreadsheet::WriteExcel
noch mit
Code (perl): (dl )

Spreadsheet::ParseExcel
richtig fündig geworden...

jemand ne spontane idee?

schönen mittwoch noch
- +8 replies
- renee
  
  2009-05-06 17:05
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Wie würdest Du das ohne Perl machen? Diese Schritte musst Du mit Perl dann "nachprogrammieren". Da dürften die Win32-Module richtig sein. Übrigens: Win32::OLE::Const importiert nur ein paar Konstanten. Das wichtige Modul für die Interaktion mit Excel ist Win32::OLE (ohne "Const")
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - +7 replies
  - Gast NixIsFix-ausgeloggt
    
    2009-05-08 12:34
    ok - habe mal ein wenig rumprobiert mit Win32::OLE & Excel
    
    derzeit kann ich:
    eine Datei erstellen
    eine Datei öffnen
    ein sheet erstellen und benamen
    ein vorhandenes sheet umbennen
    und mir den namen eines sheets ausgeben lassen.
    
    was mir fehle bzw wobei ich probleme habe :
    a. alle sheets durchlaufen
    b. den kopierbefehl zu "übersetzen"
    
    zu a:
    habe schon diverses probiert jedoch bisher ohne erfolg.
    habe versucht die sheets per whileschleife zu durchlaufen - klappt nicht bzw klappt teilweise.
    perl code:
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    my $n = 1; while ($Book->Worksheets($n)){ print STDERR "Durchlauf : $n\n"; $n += 1; }
    
    Ausgabe/fehlermeldung:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    Durchlauf : 1 Durchlauf : 2 Durchlauf : 3 Durchlauf : 4 Win32::OLE(0.1709) error 0x8002000b: "Ung³ltiger Index" in METHOD/PROPERTYGET "Worksheets" at D:\Tools\ExcelTests.pl line 35
    
    zu B:
    von dem Makrorecorder habe ich folgende Code erhalten, jedoch tue ich mir schwer ihn anzuwenden bzw zu übersetzen.
    
    Code: (dl )
    
    Sheets("DauTest").Move Before:=Workbooks("B.xls").Sheets(1)
    
    kannst du mir wieder einen kleinen tipp geben?
    
    mfg
    - +6 replies
    - GwenDragon
      
      2009-05-08 13:08
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Könnte es sein, dass die Arbeitsblätter von Null an durchnummeriert werden und/oder die in deinem Beispiel zuletzt angesprochene fehlt?
      Last edited: 2009-05-08 13:09:34 +0200 (CEST)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +5 replies
      - NixIsFix
        
        2009-05-08 13:11
        
        User since
        2009-04-28
        16 Artikel
        BenutzerIn
        
        Tabellen haben in diesem Beispiel die namen
        Sheet1 : A
        Sheet2 : B
        Sheet3 : C
        Sheet4 : D
        
        somit dürfte es nicht zu einer verwechslung zwischen index und namen kommen.
        
        +4 replies
        
        NixIsFix
        
        2009-05-08 13:23
        
        User since
        2009-04-28
        16 Artikel
        BenutzerIn
        
        habe nun eine Methode zum zählen gefunden.
        
        +3 replies
        
        NixIsFix
        
        2009-05-08 13:50
        
        User since
        2009-04-28
        16 Artikel
        BenutzerIn
        
        nun auch den durchlauf der sheets gelöst...
        
        ach man wie war das mit dem wald & den bäumen?!?!
        
        +2 replies
        
        renee
        
        2009-05-08 14:32
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Wäre schön wenn Du das hier auch posten würdest. Vielleicht kommen ja mal andere mit dem gleichen Problem und sind dann für eine Lösung dankbar.
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        NixIsFix
        
        2009-05-08 15:31
        
        User since
        2009-04-28
        16 Artikel
        BenutzerIn
        
        stimmt - hatte ich noch vor :
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        #zählen der worksheets my $Anzahl = $Book->Worksheets->{Count}; #verschieben eines sheets my $sheet= $Book->Worksheets(1); $sheet->Move({After=> $Book->Worksheets(3)});
        
        wie man jedes sheet eines arbeitsblatte nun durchläuft lasse ich den findigen tüftlern übrig ;)
        
        war nicht schwer - kleiner tipp -> zählen der worksheets

View all threads created 2009-05-06 16:53.