15.11.2019, 07:04
|
Прохожий
|
|
Регистрация: 18.01.2018
Сообщения: 30
Версия Delphi: 7, XE5
Репутация: 10
|
|
Цитата:
Сообщение от 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
|