[Bag_ali]

Помогите пожалуйста решить проблему. Гугл не помог

Project excel.exe raised exception class eolesyserror with message 'method active' not supported by automation object. Process stopped. Use step or run it continue.

Код:

Procedure Xls_open (XLSFile:string; Grid:TStrongGrid);
const
  xlCellTypeLastCell = $0000000B;
var
  I,j,c : integer;
begin
  ExlApp:= CreateOleObject('Excel.Application');
  ExlApp:= WorkBooks.open(XLSFile);
 
  Sheet := ExlApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];
  Sheet.Cells.SpecialCells(xlTypeLastCell,EmptyParam).Active;
 
  r:= ExlApp.ActiveCell.Row;
  c:= ExlAp.ActiveCell.Column;
 
  Grid.RowCount := r;
  Grid.ColCount := c;
 
  for j:= 1 to r do
    for i:= 1 to c do
       Grid.Cells[i-1,j-1]:= sheet.cells[j,i];
       ExlApp.Quit;
       ExlApp := Unnasingned;
       Sheet := Unnasingned;
End; 

Админ: Пользуемся тегами при оформлении кода!

Ошибка в этой строчке:
Sheet.Cells.SpecialCells(xlTypeLastCell,EmptyParam ).Active;

На форме есть StrinGrid, пару кнопок и OpenDialog

П.С. Могут быть ошибки в словах, так как печатал на айпаде. Ибо на рабочем ПК нет сети

[NumLock]

WorkBooks не объявлена и вообще

Код:

ExlApp:= CreateOleObject('Excel.Application');
ExlApp:= WorkBooks.open(XLSFile);

какой-то ужас! Дальше даже смотреть страшно.
Вот этот код точно работает:

Код:

Excel.ActiveCell.SpecialCells(xlLastCell, EmptyParam).Activate;