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!!!