Igor Korolyov
Кода нет - совета тоже.
Ошибки могут и поглощаться - т.е. то что они "не выдаются" не значит что их нет.

LOCAL loExcel as Excel.Application
loExcel=CREATEOBJECT('Excel.Application')


* Создаем в нем новую рабочую книгу
LOCAL loBook as Excel.Workbook
loBook = m.loExcel.workbooks.open('doverka.xlsx')

* Создаем ссылку на новый лист в рабочей книге
LOCAL loSheet as Excel.Worksheet
loSheet = m.loBook.Sheets(1)
loSheet.select 

m.loSheet.Cells(1,9).Value = DATE()
m.loSheet.Cells(12,5).Value = drivername
m.loSheet.Cells(8,1).Value = ALLTRIM(STR(sum1,16,2))+'  '
m.loSheet.Cells(9,1).Value = '('+numtorus(sum1)+')'
m.loSheet.Cells(10,4).Value = ALLTRIM(STR(nom1))+' от '+DTOC(nak1)
m.loSheet.Cells(14,5).Value = DATE()+10
m.loSheet.Cells(24,7).Value = drivername


m.loBook.Save
loexcel.Application.Quit

akvvohinc
Так что не срабатывает?
Значения ячеек после присвоения меняются/нет?
На экран после присвоения выводятся новые значения?
Не срабатывает .Save?

Судя по первому сообщению, значение ячейки после команды

m.loSheet.Cells(1,9).Value = DATE()

не содержит значение DATE(), так?

И от типа данных это не зависит?

Igor Korolyov
Вообще-то немного странно сохранять в тот же самый файл что и шаблоном служит (т.е. перезаписывать его) - не пробовал с SaveAs сделать - при том в заведомо доступную пользователю папку, в идеале - в его My Documents?

Igor Korolyov
Для отладки - поставить loExcel.Visible = .T. вместо .Quit() и посмотреть произошла ли передача данных - т.е. Save не сработал или именно .Cells(1,9).Value = ...