FoxPro/Visual FoxPro - Excel y VFP

Hola!!!!!!!!!

Me gustaria saber si existe alguna forma de enviar estadiscas por mes y por año desde un programa ejecutable de VFP a Excel, teniendo un formato en Excel ya establecido.

El programa hace lo siguiente:
Se introduce la informacion de un reporte de accidentes teniendo como datos; los nombres de los particpanres, carretera, ruta, vechiculos, peatones, etc. al terminar de dar de alta todo esto, es necesario generar otro reporte en Excel sacando las estadiscas de cada estado, por mes y por ultimo sacarlas por año incluyendo todos los estados.

Pero es necesario sacar todo esto desde VFP para evitar capturar dos veces la informacion.

Espero haber sido clara en cuanto a mi pregunta.

Gracias!!!!!!!

Si

Puedes automatizar a excel. En el directorio samples dentro de VFp, busca soluction.app hay unos ejemplos de automatizacion parecidos.

Hola trate de enviarte un documento que tengo para la autom,atizacion de excele desde vfp pero tu direccion de correo que informaste no existe. si te interesa enviame un mail a mi direccion y te envio el documento que te mencione.

Hola de nuevo y gracias por sus respuestas, introduje este codigo en un boton:

oExcel = CreateObject("Excel.Application")
oExcel.Visible = .T.
MiArchivoExcel = "C:\prueba.Xls"
oExcel.Workbooks.Open(MiArchivoExcel)

y me abre el formato que necesito para hacer las estadisticas, pero ahora necesito saber como puedo hacer para k me mande los datos a cada una de las celdas y ademas haga las operaciones.

¿Se debe hacer en el mismo boton o debo enviarlo desde las otras formas?

Espero k me puedan aclarar en gran ??????????????????????

Nota: Si pueden ser un poco mas especificos se los agradeceria xk la verdad se muy poco de VFP.

GRACIAS!!!!!!!!

Soy nuevo en este prodeso pero encontre un muy buen ejemplo y lo aplique y me funciono, espero te sirva.

Local oExcel, nCelda
Use Clientes In 0 Alias Clientes Shared
Select Clientes
Set Order to CodCli
oExcel = CreateObject("Excel.Application")
oExcel.Visible = .T.
MiArchivoExcel = "C:\prueba.Xls"
oExcel.Workbooks.Open(MiArchivoExcel)
nCelda = 1
Scan
oExcel.Cells(1,nCelda).Value = Clientes.CodCli
oExcel.Cells(2,nCelda).Value = Clientes.NomCli
nCelda = nCelda + 1
EndScan