Die letzte gefüllte Zeile finden

[semo]

Delphi-Quellcode:

try
   // Create Excel-OLE Object
      myExcel := CreateOleObject('Excel.Application')
    except
      ShowMessage('Excel konnte nicht gestartet werden!');
      exit
    end;

    // Excel verbergen
    myExcel.Visible := false;

    // Öffnen der gewählten Arbeitsmappe
    myExcel.Workbooks.Open(NAME DER DATEI);

    Sheet := myExcel.Workbooks[ExtractFileName(NAME DER DATEI)].WorkSheets[1];

    // aktivieren der letzten Zelle

    Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;


    // Laden der Spalte 1 in eine Liste
    // Laden der Spalte 2 in eine zweite Liste 

    for zeile:=1 to myExcel.ActiveCell.Row do begin
      EnglischList.Add(myExcel.Cells[zeile, 1].Value);
      DeutschList.Add(myExcel.Cells[zeile, 2].Value)
    end;

[edit=sakura] [code] durch [delphi] ersetzt Mfg, sakura[/edit]