Дорогие форумчане. Возникла такая ситуация. Не формируется отчет в эксель. При выводе поля дата. Что может быть? Вот код:

#define xlCenter -4108
#define xlSolid 1

LOCAL lcPath, loExcel, lnRow

SELECT дата_выдачи,;
номер_ремонта,;
изделие,;
сумма_ремонта;
FROM бытовая_техника INTO CURSOR bt

loExcel = CreateObject("Excel.Application")



WITH loExcel
.Visible = .T.
.WorkBooks.Add

* ширина столбцов
.Columns[1].ColumnWidth = 12
.Columns[2].ColumnWidth = 15
.Columns[3].ColumnWidth = 40
.Columns[4].ColumnWidth = 16

.Range("A1:E1").Select

WITH .Selection
.MergeCells = .T.
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
ENDWITH

WITH .ActiveCell
.Value = "Бытовая техника"
.Font.Size = 14
.Font.Bold = .T.
ENDWITH

.Rows("2:2").RowHeight = 18
.Range("A2:E2").Select

WITH .Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.Pattern = xlSolid
.Interior.Color = RGB(255,255,254)
ENDWITH

.Cells[2,1].value = "Дата_выдачи"
.Cells[2,2].value = "Номер_ремонта"
.Cells[2,3].value = "Изделие"
.Cells[2,4].value = "Сумма_ремонта"

lnRow = 2

SELECT bt
SCAN
lnRow = lnRow + 1
*.Cells(lnRow,1).value = bt.Дата_выдачи <---Здесь возникает ошибка
.Cells(lnRow,2).value = bt.Номер_ремонта
.Cells(lnRow,3).value = ALLTRIM(bt.Изделие)
.Cells(lnRow,4).value = bt.Сумма_ремонта
ENDSCAN

SELECT бытовая_техника

ENDWITH

AndreTM, Спасибо с DTOC() заработало. Проблема с форматом вывода была. Ошибка работы с Com объектом.