|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Запись числа в Excel
Дайте совет, что я не так делаю.
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 не записывается из за чего? Что не так? |