to EXCEL

* Create a reference to Excel
objExcel = CreateObject("Excel.Application")
* Open an existing workbook
cFileName = fullpath('')+"templates\ex1.xlt"
* cFileName = "C:\Kartrid\templates\ex1.xlt"
objBook = objExcel.WorkBooks.Open(cFileName)

objExcel.Sheets("Prn").Select

* Make Excel visible so you can see the show
objExcel.Visible = .T.

objExcel.parent.cells(2,1).value = thisform.dirname.caption

objExcel.Range("a6").Select

StartRowNumber = 6

select trans
goto top

SCAN

objExcel.parent.cells(StartRowNumber,1).value = DTOC(trans.ddate_request)
objExcel.parent.cells(StartRowNumber,2).value = ALLTRIM(STR(trans.nkartr_ful))
objExcel.parent.cells(StartRowNumber,3).value = ALLTRIM(STR(trans.nkartful_center))
objExcel.parent.cells(StartRowNumber,4).value = ALLTRIM(STR(trans.nkartr_emp))
objExcel.parent.cells(StartRowNumber,5).value = ALLTRIM(STR(trans.nrequest))
objExcel.Cells(StartRowNumber+1,1).Select

objExcel.Selection.EntireRow.Insert

StartRowNumber = StartRowNumber + 1

ENDSCAN


*objExcel.Range("a12").Select

StartRowNumber = StartRowNumber + 6

select tr_x
goto top

SCAN

objExcel.parent.cells(StartRowNumber,1).value = DTOC(tr_x.ddate_request)
objExcel.parent.cells(StartRowNumber,2).value = ALLTRIM(STR(tr_x.nkartr_ful))
objExcel.parent.cells(StartRowNumber,3).value = ALLTRIM(STR(tr_x.nkartful_center))
objExcel.parent.cells(StartRowNumber,4).value = ALLTRIM(STR(tr_x.nkartr_emp))
objExcel.parent.cells(StartRowNumber,5).value = ALLTRIM(STR(tr_x.nrequest))
objExcel.Cells(StartRowNumber+1,1).Select

objExcel.Selection.EntireRow.Insert

StartRowNumber = StartRowNumber + 1

ENDSCAN

release objExcel