загрузка из excel

[Betty]

Здравствуйте!
скажите,пожалуйста, как из Exelя загружать в memo или Edit

[pesi]

var
 MsX:variant;
begin
MsX:= CreateOleObject('Excel.Application');
 try
  MsX.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
  MsX.Visible:=true;
  edit1.Text:=msx.WorkBooks[1].WorkSheets['Лист1'].cells[2,3].text; //получим из второй строки третьего столбца
  except
   ShowMessage('Ошибка!');
 end;
end;

[Betty]

а чего напротив строки
MsX.WorkBooks.open(ExtractFilePath( ParamStr(0))+'1.xls');
пишет ошибку

[Вавел из ГМТУ]

Какую ошибку? (см. в низу компилятора)

[Betty]

неизвестный идентификатор

[Serge_Bliznykov]

в uses (перечень используемых модулей/библиотек) допишите ComObj (через запятую):

uses
  Windows, Messages, SysUtils, Classes
...., ComObj;

[Betty]

этот алгоритм работает с 2007м экселем??

[Пепел Феникса]

попробуйте и все узнаете.

[Betty]

попробовал. НЕ работает
программа обрывается на строке
edit1.Text:=msx.WorkBooks[1].WorkSheets['Лист1'].cells[2,3].text;

[pesi]

var
MsX, Sheet :variant;
begin
MsX:= CreateOleObject('Excel.Application');
 try
  MsX.WorkBooks.open(ExtractFilePath(ParamStr(0))+'1.xls');
  MsX.Visible:=true;
  Sheet:=MsX.Sheets.Item['Лист1'];
  edit1.Text:=Sheet.cells.item[2, 3].value;
 except
   ShowMessage('Ошибка!');
 end;
end;