[Vansha]

Дайте совет, что я не так делаю.
procedure TForm1.BitBtn1Click(Sender: TObject);

Код:

  var Ap : Variant;
  a,b:integer;
 begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:\test\test.xls',0,True);
Ap.DisplayAlerts := False;
Edit1.Text:= Ap.Range['B3'];
Ap.Application.Quit;
a:=strtoint(Edit1.Text);
Edit1.Text:=inttostr(a+1);
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
var Ap : Variant;
 begin
Ap := CreateOleObject('Excel.Application');
Ap.Workbooks.Open('C:\test\test.xls',0,True);
Ap.Worksheets.Item['Лист1'].Range['B3']:= Edit1.Text;
Ap.DisplayAlerts := False;
Ap.Application.Quit;
end;

end.

при нажатии BitBtn1 подтягиваем число из Excel в Edit1
прибавляем +1, это все работает норм.
При нажатии BitBtn6 формируем запись в Excel. число в Excel не записывается из за чего? Что не так?

[lmikle]

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

Код:

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

[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