RESPUESTA A LA PREGUNTA 988-FOXPRO

hola como estas? espero que este ejemplo te sirva,
de cualquier forma si tenes alguna duda mandame un mail . chau y suerte

sele auxiliar
set order to orden
excel=createobject("excel.application")
excel.visible=.t.
excel.workbooks.add
excel.cells(1,1).value="Maquina"
excel.cells(1,2).value="Fecha"
excel.cells(1,3).value="Operario"
excel.cells(1,4).value="Orden"
excel.cells(1,5).value="Tarea"
Go top
l=3
do while !eof()
excel.cells(l,1).value=auxiliar.maquina
excel.cells(l,2).value=auxiliar.fecha
excel.cells(l,3).value=auxiliar.legajo
excel.cells(l,4).value=auxiliar.orden
excel.cells(l,5).value=auxiliar.tarea
skip
l=l+1
enddo
***Excel.activeworkbook.saveas("c:\mis documentos\prueba.xls")


Daniel
daguirre@onenet.com.ar