Показать сообщение отдельно
  #4  
Старый 31.05.2011, 18:31
Assistant Assistant вне форума
Продвинутый
 
Регистрация: 20.02.2011
Адрес: там где правят идиоты
Сообщения: 603
Версия Delphi: 7
Репутация: выкл
По умолчанию

вам нужно определить конец таблицы в Excel? если да, то:
Код:
var
  e_app: Variant;
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;

  e_app.Quit;
end;
покажет кол-во строк и столбцов на активном листе.
__________________
взялся из неоткуда, ничего не прошу, помогаю просто так
ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя
Ответить с цитированием