Deseo Leer un Archivo XLSX de Excel y pasarlo a DBF

[Luis Leon]

Mucho ,Agradecere apoyarme con el asunto, he usado un codigo que encontre en el foro pero no me funciona (abajo lo detallo)

         cFileXLS = Getfile("XLS")

 

 IF !FILE(cFileXLS)

WAIT WINDOW  " NO SE Presentó selección de archivo .... "  at 40, 20 timeout 2

Return 

 Endif 

 

cConn = "Driver={Microsoft Excel Driver (*.xls)};"+;

        "DriverId=790;Dbq="+Mi_Nombre+;

        ";DefaultDir="+Justpath(Mi_Nombre)+";"

 

  nH = SqlStringConnect(cConn)

 

  SQLTables(nH,"", "SheetNames")

 

 

      cTabla = Trim(SheetNames.Table_Name)

      cCursor = Chrtran(cTabla," $","_")

      SQLExec(nH,'Select * From ['+cTabla+']',cCursor)

[luisandrey]

 

Hola Leon...

 

En una pagina de MSDN, encontré esta solución, la función.

El programita, es un ejemplo de como yo la implemente.

 

espero te sirva.

[luisandrey]

Luis Leon..

 

Estuve mirando, la función que te pase retorna un cursor xlresults, hice una prueba, abriendo este cursor que contiene la información original de la hoja de calculo y para nada me redondea los numéricos. lo siento, no veo el efecto no se como ayudarte, a mi me funciona.

 

 

en cuanto a los campos carácter tienes razón, pero para eso puedes utilizar el gather memvar memo que te crea una serie de variables de memoria incluyendo los campos memos y a los que te puedes referir con m. y el  nombre de campo (m.micampo) y ya tienes un campo memo convertido en una variable de memoria; esta es solo una de muchas formas de tratar los campos memo.

 

 

On Tuesday, January 14, 2014 10:50:26 AM UTC-5, Luis Leon wrote:

[almonts ( www.ontarioxb.es )]

Importa la hoja de Cálculo en Access y la exportas en formato DBF, no te compliques la vida si es algo muy puntual.

 

[Luis suescún]

Almonts, pero si de lo que se trata es de hacer una herramienta de cargar información directamente de Excel a través de una aplicación visual FoxPro a una base de datos?

La solución es seguir buscando donde esta el problema.

 

A mi la verdad me funciona 100% esa función que le pase a Luis Leon, no alcanzo a entender que le pasa a el.

 

 

2014/1/14 almonts ( www.ontarioxb.es ) <alm...@gmail.com>

[Luis suescún]

como te termino de ir con el asunto.

un Abrazo

[Luis Leon]

Desisti, el tiempo me gano , lo unico que me quedo es decirle al cliente que antes abra el archivo y grabe con el formato que reconoce VFP y despues hacer el proceso correspondiente
 

---

Date: Thu, 16 Jan 2014 13:45:29 -0500
Subject: Re: [vfp] Deseo Leer un Archivo XLSX de Excel y pasarlo a DBF
From: luis.sue...@gmail.com
To: publice...@googlegroups.com