Excel --> RowCount?

[Stef_One]

Hallo Zusammen,

kennt jemand von euch den Code mit dem ich den RowCount eines Excel-Sheets bestimmen kann?
(Momentan öffne ich das Excelfile mit OLE)

[Jens Schumann]

Hallo,
hier ein Hinweis

Delphi-Quellcode:

TExcelWorksheet.Cells.SpecialCells(xlLastCell,EmptyParam).Row;

liefert die Zeilennummer der letzten mit Daten gefüllten Zeile

[Stef_One]

Wunderbar das funst! :-D danke Jens

kleiner Hinweis falls noch jemand vor diesem Problem steht
die Konstante "xlLastCell" hat den wert 11

[Nighthawk1310]

Hier noch eine Möglichkeit (über OLE und nicht über ActiveX):

Delphi-Quellcode:

var XLApp, XLSheet  : OLEVariant;
    iMaxRow, iMaxColumn  : Integer;
    sXLSFile : String;  //Dateiname

Delphi-Quellcode:

    XLApp := CreateOleObject('Excel.Application'); //Application Objekt erstellen
    XLApp.Workbooks.Open(sXLSFile);                //Datei öffnen
    XLSheet := XLApp.Workbooks[1].WorkSheets[1];   //Tabelle x in Arbeitsmappe y der Variablen zuweisen (hier 1)
    iMaxRow := XLSheet.UsedRange.Rows.Count;       //Maximum der Benutzten Zeilen erfragen
    iMaxColumn := XLSheet.UsedRange.Columns.Count;       //Maximum der Benutzten Spalten erfragen

[Jens Schumann]

Zitat:

Zitat von Nighthawk1310

Hier noch eine Möglichkeit (über OLE und nicht über ActiveX):

Hinweis: Beide Verfahren laufen über OLE.
Unterschied: Mein Vorschlag verwendet die frühe und Nighthawk1310 die späte Bindung.

[Chemiker]

Hallo Stef_One,

Delphi-Quellcode:

TExcelWorksheet.Cells.SpecialCells(xlLastCell,EmptyParam).Row;

Wenn man so, die letzte Zeile bestimmen will, sollte man nur wissen was man macht. Es kann zu einem falschen Ergebnis führen, wenn man z.B. eine Zelle formatiert, dann wird diese Zelle auch als belegt mit gezählt.

Bis bald Chemiker