Alex 0163Jonny540,
а можно пример кода в котором мы с заполняем шаблон или или как создается КРАСИВАЯ шапка в фоксе
Чем отличается "шаблон" от "не шаблона"? Да ничем... Просто провели некую подготовку, красивостей нарисовали....
А так - точно так же помещаем значения в ячейки.... Объединяем ячейки, меняем шрифт и размер букв и т.д. Можно даже формулу засунуть....
[SRC пример из реальной программы]
LPARAMETERS ldDate1,lDdate2,tnkodadr,lcregion,tnkodisp,tnmode,lcFileName

SET date GERMAN
#INCLUDE "..\..\libs\include\fatfact.h"
#INCLUDE "..\LIBS\INCLUDE\excel.h"

* проверяем количество параметров и то, что нам передали в параметрах
... удалено....

*подготваливаем необходимые вспомогательные данные
lnweek = WEEK(ldDate1,1, 2)
loWeek1 = GetFirstDayOfWeek(lnweek, YEAR(ldDate1))
loWeek2 = GetFirstDayOfWeek(lnweek+1, YEAR(ldDate1))
loWeek3 = GetFirstDayOfWeek(lnweek+2, YEAR(ldDate1))
loWeek4 = GetFirstDayOfWeek(lnweek+3, YEAR(ldDate1))
loWeek5 = GetFirstDayOfWeek(lnweek+4, YEAR(ldDate1))
loWeek6 = GetFirstDayOfWeek(lnweek+5, YEAR(ldDate1))

ldBeg6 = loWeek6.dFirstDay
ldEnd6 = loWeek6.dLastDate
ldBeg5 = loWeek5.dFirstDay
ldEnd5 = loWeek5.dLastDate
ldBeg4 = loWeek4.dFirstDay
ldEnd4 = loWeek4.dLastDate
ldBeg3 = loWeek3.dFirstDay
ldEnd3 = loWeek3.dLastDate
ldBeg2 = loWeek2.dFirstDay
ldEnd2 = loWeek2.dLastDate
ldBeg1 = loWeek1.dFirstDay
ldEnd1 = loWeek1.dLastDate

*Подготавливаем данные для выдачи в Excel
... удалено....

SELECT * from curtmp INTO CURSOR tmp READWRITE

* Делаем строку для итогов первого уровня
SELECT 1 as sel, koddept, kodtrademark, tradename, kodcomppay, companyname FROM tmp GROUP BY 1,2,3,4,5,6 INTO CURSOR cur_itg_comp
* Делаем строку для итогов второго уровня
SELECT 2 as sel, 999999999 as kodtrademark, " " as tradename, kodcomppay, "Итого по "+companyname as companyname FROM tmp GROUP BY 1,2,3,4,5 INTO CURSOR itg_comp

SELECT tmp
APPEND FROM DBF('cur_itg_comp')
APPEND FROM DBF('itg_comp')
SELECT * from tmp ORDER BY kodcomppay, kodtrademark, sel, koddept, code INTO CURSOR tmp && Упорядочиваем строки: сначала строки с данными, потом итоги первого уровня, потом итоги второго уровня...

IF RECCOUNT('tmp')=0
RETURN
ENDIF

*Открываем шаблон
lcNameFileOpen = 'с:\Template\Шаблон_new.xlt'
MyXlsFactory = .... && Создаем объект приложения Excel
MyXlsFactory.Off_App.Workbooks.ADD(lcNameFileOpen) && Открываем шаблон
MyXlsFactory.Off_App.DisplayAlerts = .f.
MyXlsFactory.WorkSheet = MyXlsFactory.Off_App.Sheets(1)
MyXlsFactory.Off_App.Sheets(1).Activate
MyXlsFactory.Off_App.Calculation = xlManual && переводим в ручной режим

* заполняем ячейки на рабочем листе Экселя
... удалено ...

WITH MyXlsFactory.WorkSheet

* Украшательства: Ставим группировку в Экселе и прописываем формулы, отсутствующие в шаблоне
* Первые пять строк - шапка шаблона
SELECT tmp
i = 0
k = 0
p = 0
indexgrp = 5
SCAN

IF sel = 0
i = i + 1
ELSE
IF sel = 1
p = RECNO()
.range(.cells[6+ p- i,1],.cells[6+ p-1,1]).Rows.Group
.range(.cells[6+ p - i,1],.cells[6+ p-1,1]).Rows.Group
.range(.cells[6+ p- i,1],.cells[6+ p-1,1]).Rows.Group
.cells[6+ p,1].Rows.Group
.cells[6+ p,1].Rows.Group
.range(.cells[6+ p,1],.cells[6+ p,153]).Font.FontStyle = ...
.range(.cells[6+ p,1],.cells[6+ p,153]).Interior.ColorIndex = 15
FOR k = 6 TO 152
.cells[6+ p,k].FormulaR1C1 = TEXTMERGE('=SUM(R[-<<i>>]C:R[-1]C)')
ENDFOR

.cells[6+ p,153].FormulaR1C1 = TEXTMERGE('=IFERROR((RC[-2]/RC[-3])*100,"""")')

i = 0
endif
ENDIF
ENDSCAN

*продолжаем украшательства, группы следующего уровня группировки
SELECT tmp
GO TOP
i = 0
k = 0
p = 0
indexgrp = 5
formula = ''
SCAN FOR sel = 2
p = RECNO()
lnKOdcomp = tmp.kodcomppay
SELECT RECNO() as recid, sel,kodcomppay FROM tmp INTO CURSOR test WHERE sel > 0 AND tmp.kodcomppay = lnkodcomp ORDER BY 2 desc
SELECT test
GO top
p1 = test.recid
SKIP 1
DO while !EOF()
IF EMPTY(formula)
formula = "="
ELSE
formula = formula + "+"
ENDIF
formula = formula + "R["+ALLTRIM(STR(test.recid - p1))+"]C"
SKIP 1
ENDDO
.cells[6+ p,1].Rows.Group

.range(.cells[6+ p,1],.cells[6+ p,153]).Font.FontStyle = ....
.range(.cells[6+ p,1],.cells[6+ p,153]).Interior.ColorIndex = 15
FOR k = 6 TO 152
.cells[6+ p,k].FormulaR1C1 = TEXTMERGE(formula)
ENDFOR

.cells[6+ p,153].FormulaR1C1 = TEXTMERGE('=IFERROR((RC[-2]/RC[-3])*100,"""")')

formula = ''
i = 0
SELECT tmp
ENDSCAN

p1 = RECCOUNT("tmp")+1
.range(.cells[6+ p1,1],.cells[6+ p1,153]).Font.FontStyle = ....
.range(.cells[6+ p1,1],.cells[6+ p1,153]).Interior.ColorIndex = 15

* Итоги по документу (TOTAL)
FOR k = 6 TO 151
.cells[6+ p1,k].FormulaR1C1 = TEXTMERGE('=SUMIF(R[-<<p1-1>>]C[-<<k-2>>]:R[-1]C[-<<k-2>>],"",R[-<<p1-1>>]C:R[-1]C)')
ENDFOR

.cells[6+ p1,152].FormulaR1C1 = TEXTMERGE('=SUMIF(R[-<<p1-1>>]C[-<<k-2>>]:R[-1]C[-<<k-2>>],"",SUMIF(R[-<<p1-1>>]C:R[-1]C,"<0",R[-<<p1-1>>]C:R[-1]C))')
.cells[6+ p1+1,152].FormulaR1C1 = TEXTMERGE('=SUMIF(R[-<<p1-1>>]C[-<<k-2>>]:R[-1]C[-<<k-2>>],"",SUMIF(R[-<<p1-1>>]C:R[-1]C,">=0",R[-<<p1-1>>]C:R[-1]C))')
.cells[6+ p1,153].FormulaR1C1 = TEXTMERGE('=IFERROR((RC[-2]/RC[-3])*100,"""")') &&TEXTMERGE('=IFERROR((1-ABS(RC[-2])/RC[-1])*100,"""")')
ENDWITH

MyXlsFactory.Off_App.Calculation = xlAutomatic && Переводим вычисления в автоматический режим
* Здесь сформированный документ отражается на экране пользователя....

* Чистим за собой все курсорры
USE IN SELECT('tmp')
USE IN SELECT('cur_itg_comp')
USE IN SELECT('itg_comp')
...
[/SRC]