[poli-smen]

Сообщение от meshkale

Поменял переменные, но Value не помогло(

У меня вот такой код прекрасно работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  exel: Variant;
  e: String;
begin
  exel := CreateOleObject('Excel.Application');
  exel.Workbooks.Open('D:\e.xls');
  exel.Visible := True;
  e := exel.Range['A1'].Value;
  ShowMessage(e);
  exel.Quit;
end;