Excelente ejemplo de como puedes exportar una tabla a Excel de forma sencilla.
Ideal para cuando la tabla a exportar no tiene muchos campos y registros.
oExcel = Createobject("Excel.Application")
oExcel.WorkBooks.Add
Use Home()+"samplesdataCustomer"Shared
Set Talk Off
nNumRegExp = 15 && Reccount()
For i= 1 To nNumRegExp
For J = 1
To Fcount()
oExcel.ActiveSheet.cells(i,J).Value= Eval(Field(J))
Next
Skip
Next
oExcel.Visible
= .T.
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com