|
|
Регистрация | << Правила форума >> | 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 не записывается из за чего? Что не так? |
#2
|
|||
|
|||
попробуй писать через cell
Код:
XLApp.Application.cells[1, 1].Value := Edit1.Text; |
#3
|
|||
|
|||
Цитата:
Спасибо все работает. Код:
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 |