Aug 22
Son muchas las rutinas que copian el contenido de una tabla o cursor a Excel; está es una de las formas más rápidas. He copiado una tabla de 4000 registros y 30 campos en 7 segundos.
Use Tabla
cTmp = Getenv("TEMP")+"" + Sys(2015) + ".Tmp"
Copy To (cTmp) Delimited With Tab
_Cliptext = Filetostr(cTmp)
oExcel= Createobject("Excel.Application")
With oExcel
.DisplayAlerts = .F.
.Workbooks.Add()
.Range("A1").PasteSpecial
EndWith
oExcel.Workbooks(1).SaveAs("c:\prueba.xls")
oExcel.Quit
oExcel= .Null.
Release oExcel
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
