[Assistant]

Код:

var
  e_app: Variant;
  rowcount, colcount: integer;
begin
............
  e_app := CreateOleObject('Excel.Application');
  e_app.WorkBooks.Open('test.xls');

  // то что Вам нужно по текущему активному листу
  rowcount := e_app.ActiveSheet.UsedRange.Rows.Count;
  colcount := e_app.ActiveSheet.UsedRange.Columns.Count;

  ..............

end;

P.S.: если я вопрос вообще правильно понял.