local Fila
wait'Espere Un Momento Exportando Datos' window nowait
_screen.mousepointer=14
TmpSheet=GetObject('','Excel.Sheet')
XLApp=TmpSheet.Application
archivo="C:\Datos_Estacion\report_tin.xls"
XLApp.workbooks.open(archivo)
XLApp.visible=.T.
XLApp.Worksheets(1).Select
XLSheet=XLApp.ActiveSheet
XLSheet.Cells(9,3)=(fechainforme) &&fecha que se optiene de mi variable publica del form principal para mostrarse en el informe de excel.
sele 1 &&selecciona la tabla de donde tomare los datos.
Fila=13
scan
XLSheet.Cells(Fila,3)=(estatus_sd) &&campos de mi tabla que asigno a la fila 13
XLSheet.Cells(Fila,4)=(estatus_ok)
* Fila=Fila+1
endscan
sele 2
Fila=14
scan