Добрый день!
Вот нашел такой модуль формирования экселевского файла (счет-фактуры) на основе шаблона.
Но у нас нет MС Офиса. Есть Опен.
Возможно как-то переделать этот кусок под него?



LOCAL loExcel as Excel.Application
loExcel=CREATEOBJECT('Excel.Application')
m.loexcel.Workbooks.Open ("sf.xlt")
LOCAL loSheet as Excel.Worksheet
loSheet = m.loexcel.ActiveSheet

snds=0
su=0

m.loSheet.Cells(2,4).Value = "#"
m.loSheet.Cells(3,2).Value ="Продавец: "
m.loSheet.Cells(4,2).Value ="Адрес: "
m.loSheet.Cells(5,2).Value ="ИНН/КПП продавца: "
m.loSheet.Cells(6,2).Value ="Грузоотправитель и его адрес: "
m.loSheet.Cells(7,2).Value ="Грузополучатель и его адрес: "
m.loSheet.Cells(8,2).Value ="К платежно-расчетному документу № "
m.loSheet.Cells(9,2).Value ="Покупатель: "
m.loSheet.Cells(10,2).Value ="Адрес: "
m.loSheet.Cells(11,2).Value ="ИНН/КПП покупателя: "

#DEFINE xlThin 2
#DEFINE xlDiagonalDown 5
#DEFINE xlDiagonalUp 6
#DEFINE xlEdgeLeft 7
#DEFINE xlEdgeTop 8
#DEFINE xlEdgeBottom 9
#DEFINE xlEdgeRight 10
#DEFINE xlInsideVertical 11
#DEFINE xlInsideHorizontal 12
LOCAL loRange

GO top
i=1
DO WHILE EOF()=.f.
i=i+1
m.loSheet.Cells(i,3).Value =name_war
m.loSheet.Cells(i,4).Value =unit_war
m.loSheet.Cells(i,6).Value =qntt_war
m.loSheet.Cells(i,9).Value =sale_war
m.loSheet.Cells(i,11).Value =summ_war
m.loSheet.Cells(i,14).Value ="---"
m.loSheet.Cells(i,16).Value ="18%"
m.loSheet.Cells(i,18).Value =summ_nds
m.loSheet.Cells(i,22).Value =summ_ovr
m.loSheet.Cells(i,23).Value =cntr_war
m.loSheet.Cells(i,25).Value =decl_war

snds=snds+summ_nds
su=su+summ_ovr
loRange = m.loSheet.Range(m.loSheet.Cells(i,2).Address+":"+m.loSheet.Cells(i,26).Address)
loRange.Borders(xlEdgeLeft).Weight = xlThin
loRange.Borders(xlEdgeTop).Weight = xlThin
loRange.Borders(xlEdgeBottom).Weight = xlThin
loRange.Borders(xlEdgeRight).Weight = xlThin
loRange.Borders(xlInsideVertical).Weight = xlThin
loRange.Borders(xlInsideHorizontal).Weight = xlThin
SKIP
ENDDO
i=i+1
m.loSheet.Cells(i,3).Value ="Всего к оплате"
m.loSheet.Cells(i,18).Value =snds
m.loSheet.Cells(i,22).Value =su


loRange = m.loSheet.Range(m.loSheet.Cells(i,2).Address+":"+m.loSheet.Cells(i,22).Address)
loRange.Borders(xlInsideVertical).Weight = xlThin
loRange.Borders(xlInsideHorizontal).Weight = xlThin
loRange.Borders(xlEdgeLeft).Weight = xlThin
loRange.Borders(xlEdgeTop).Weight = xlThin
loRange.Borders(xlEdgeBottom).Weight = xlThin
loRange.Borders(xlEdgeRight).Weight = xlThin
loRange.Borders(xlInsideVertical).Weight = xlThin
loRange.Borders(xlInsideHorizontal).Weight = xlThin

i=i+2
m.loSheet.Cells(i,3).Value ="Руководитель организации ___________ "
m.loSheet.Cells(i,22).Value ="Глав.бухгалтер ___________ "
i=i+1
m.loSheet.Cells(i,3).Value =" (подпись) (ФИО)"
m.loSheet.Cells(i,22).Value ="(подпись) (ФИО)"

i=i+2
m.loSheet.Cells(i,3).Value ="Индивидуальный предприниматель ___________ "
m.loSheet.Cells(i,22).Value ="_______________________________________"
i=i+1
m.loSheet.Cells(i,3).Value =" (подпись) (ФИО)"
m.loSheet.Cells(i,22).Value ="(реквизиты свидетельства)"

i=i+2
m.loSheet.Cells(i,3).Value ="Примечание: Первый экземпляр - покупателю "
i=i+1
m.loSheet.Cells(i,3).Value ="второй экземпляр - продавцу "

GO top

loExcel.Visible= .T.