FoxPro/Visual FoxPro - Help con openoffice

hola quisiera me ayudaran con el codigo necesario para crear un archivo openoffice ya que queremos dejar de lado excel, actualmente genero un archivo excel de la siguiente forma:

oexcel=createobject('excel.application')
oexcel.application.visible=.f.
oexcel.application.StandardFontSize=7
oexcel.application.workbooks.add()
oexcel.application.rows(1).font.size=9
oexcel.application.rows(1).font.bold=.t.

oexcel.application.columns(01).columnwidth=05.00
oexcel.application.columns(02).columnwidth=46.00

oexcel.application.cells(3,02).font.bold=.t.
oexcel.application.cells(3,02).font.size=11
oexcel.application.cells(3,02).value="RESUMEN DE ASISTENCIA"

*---------------------------------------------------------------------------------
Select Detalle
Go top
do while !eof()
Wait "Generando Excel" window nowait noclear
I=I+1
Select detalle
DO while contadorD<=xnumcol
oexcel.application.cells(I,1).value=detalle.ficha
oexcel.application.cells(I,2).value=Left(detalle.nombre,45)

select detalle
skip
enddo
enddo

Cualquier ayuda al respecto muchas gracias

Chequea el otro foro