Foros Club Delphi - duda con excel

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)

- - duda con excel (https://www.clubdelphi.com/foros/showthread.php?t=1454)

mi pregunta es como seria el codigo para saber cuantas lineas del excel tengo utisadas para luego usar esa informacion en un for y recorrer el archivo xls.
el codigo que utlizo para abrir el archivo es el siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
Excel: _Application;
lcid: integer;
WBk: _Workbook;
WS: _WorkSheet;
Filename: OleVariant;

begin
lcid := LOCALE_USER_DEFAULT;
Excel := CoExcelApplication.Create;
Excel.Visible[lcid] := True;

Filename := 'C:\telbonus\oficinas.xls';
WBk := Excel.Workbooks.Open(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, LCID);
WS := WBk.Worksheets.Item['Sheet1'] as _Worksheet;
WS.Activate(LCID);

end;

Yo lo que hago es localizar la ultima linea de Excel y guardar en una variable el Nº de linea:

Código:

ExcelGoToLastRow(Excel);

MaxRow := ExcelGetRow(Excel);

ExcelGoToTopRow(Excel);

MaxRow es un Integer con la última línea de la hoja de excel. El código de las funciones lo tienes aki :

Código:

procedure TFmImportar.ExcelGoToLastRow(Excel : Variant);

Begin

  Try

    Excel.Selection.End[xlDown].Select;

  Except

  End;

End;



procedure TFmImportar.ExcelGoToTopRow(Excel : Variant);

Begin

  Try

    Excel.Selection.End[xlUp].Select;

  Except

  End;

End;



Function TFmImportar.ExcelGetRow(Excel : Variant): Integer;

Begin

  Result := 1;

  Try

    Result := Excel.ActiveCell.Row;

  Except

    Result := 1;

  End;

End;

Saludos y Suerte!!!

:D Gracias FRANKER!!!