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

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 )

my $n = 1;
while ($Book->Worksheets($n)){  
        print STDERR "Durchlauf : $n\n";
        $n += 1;
}

Ausgabe/fehlermeldung:

Code: (dl )

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