Spreadsheet::WriteExcel in bestehende Datei

[perle6]

Halihallo Dirk

Mir fällt nur die Lösung ein, dass du über Zeilen (ggf. Spalten) iterierst und solange die Zellen abgrast, bis kein Wert mehr enthalten ist (undef => if (defined($oCell->{Val})), nicht ''!); dann hast du die Grenze gefunden.

Würg, wie unschön:

for (my $iR = $oWkS->{MinRow};
   defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow};
   $iR++) {
   for(my $iC = $oWkS->{MinCol} ;
      defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; $iC++) {
      ## mach was mit [$iR, $iC]...
   }
}

ich sollte mir erst die Doku ansehen, bevor ich was schreib... sorry.

Viele Grüsse

Philipp

Hallo Philipp,

sorry, funktioniert irgendwie nicht.
Vielleicht noch mal eine genauere Beschreibung:

Ich brauche die genaue Anzahl der schon vorhandenen Datensätze, nehmen wir mal $AnzDS. Wenn ich den nächsten Datensatz schreibe, dann sieht das so aus:
$oBook->AddCell(0, $AnzDs, 1, 'Wert1');

So würde dann jeder Datensatz an den nächsten angefügt, Reihe für Reihe. Aber wie ?
Ich weiß, ich bin lästig. :-))))))))

Gruß
Dirk

Hallo noch mal,

Problem selbst gelöst. Vielen Dank noch mal, für die gute Zusammenarbeit !
Hier meine Lösung:

Anzahl der Reihen (Datensätze) ermitteln

my($iR, $oWkS, $az);
    $oWkS = $oBook->{Worksheet}[0];

for(my $iR = $oWkS->{MinRow} ;
         defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ; $iR++) {
            $az++; # Anzahl der vorhandenen Datensätze
     }

Viele Grüße
Dirk