[Vansha]

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

попробуй писать через cell

Код:

XLApp.Application.cells[1, 1].Value := Edit1.Text;

Спасибо все работает.

Код:

procedure TForm1.BitBtn6Click(Sender: TObject);
var Ap : Variant;
 begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:\test\test.xls',0,True);
Ap.Application.cells[3, 2].Value := Edit1.Text;
Ap := CreateOleObject('Excel.Application');
Ap.DisplayAlerts := False;
Ap.Application.Quit;

end