Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Адрес последней ячейки в Excel

Автор: Mick Winder 3.2.2005, 15:53

Как узнать адрес последней ячейки таблицы на рабочем листе, если эта таблица одна?

Автор: <Spawn> 9.2.2005, 21:25

Думаю этот код прояснит ситуацию:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
  Excel, WorkBook, WorkSheet: OleVariant;
begin
  Excel := CreateOleObject('Excel.Application');
  try
    WorkBook := Excel.WorkBooks.Add;
    WorkSheet := WorkBook.WorkSheets.Add;
    WorkSheet.Cells.Item(2, 2) := 'adf';
    ShowMessage(WorkSheet.Cells.CurrentRegion.Rows.Count);
    Excel.Visible := True;
  finally
    Excel := Unassigned;
  end;
end;