Excel --> RowCount?

[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