La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  54743 - COMO TRASLADAR UNA BASE DE DATOS A EXCEL
Autor:  estuardo mejia
quiero trasladar una base de datos elaborada en visual fox pro a excel pero no se como hacerlo les agradeceria mucho que me pudieran ayudar gracias.
  Respuesta:  juan fernando 


Open database tu base



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