#DEFINE QUERYDATA_LOC "Запрос таблицы данных..."
#DEFINE STARTXL_LOC "Запуск Excel..."
LOCAL myi,myj,myk,xlsheet,XLApp,tmpsheet
SET path TO (cHomedir)
aaa = ALLTRIM(cHomedir) + '\svod1.dbf' &&таблица, из которой берем данные

SELECT * from (aaa) INTO ARRAY arrSalesData
tmpsheet = GetObject('','excel.sheet')
XLApp = tmpsheet.application
XLApp.Visible = .t.
XLApp.SheetsInNewWorkbook = 3 &&количество листов в книге
XLApp.WorkBooks.Add() &&рабочую книгу
XLSheet = XLApp.ActiveSheet
myu = 1
SELECT (aaa)
GO TOP
es = 16
FOR myu = 1 to 69 && строчки
FOR myj = 1 to es && столбцы
IF ISNULL (arrSalesData(myu,myj)) THEN
XLSheet.Cells(myu+1,myj).Value = 0
ELSE
XLSheet.Cells(myu+1,myj).Value = arrSalesData(myu,myj)
ENDIF
ENDFOR
ENDFOR
***оформление ячеек
XLSheet.Rows("1:1").Delete
XLSheet.Shapes.AddLine(0.5, 306.5, 758.75, 306.5)
XLSheet.Shapes.AddLine(0.5, 726.5, 758.75, 726.5)
XLSheet.Rows("69").Font.Bold = .T.
XLSheet.Rows("69").font.color = 16711680
XLSheet.Columns("A").Font.Bold = .T.
XLSheet.Columns("A").font.color = 16711680
XLSheet.Columns("K").Font.Bold = .T.
XLSheet.Columns("K").font.color = 16711680
XLSheet.Name = "svod_1"
FOR myn=1 TO es
IF myn=1
mymacro='XLSheet.Columns('+ALLTRIM(STR(myn))+').ColumnWidth = 7'
ELSE
mymacro='XLSheet.Columns('+ALLTRIM(STR(myn))+').HorizontalAlignment=3'
&mymacro
mymacro='XLSheet.Columns('+ALLTRIM(STR(myn))+').ColumnWidth = 7'
ENDIF
&mymacro
ENDFOR
XLSheet.Visible = .f.
XLSheet = XLApp.Activesheet