FoxPro/Visual FoxPro - PROBLEMA AL IMPORTAR EXCELL 2002

   
Vista:

PROBLEMA AL IMPORTAR EXCELL 2002

Publicado por JUAN PABLO (17 intervenciones) el 03/05/2008 22:59:42
Saludos Amigos, tengo un problema al importar un archivo excell 2002, tengo sistema operativo WINDOWS VISTA y VISUAL FOX PRO 9.0 y cuando doy los siguientes comandos:

IMPORT FROM 'D:SISTEMASPSD1LIBRO1.XLS TYPE XL8 ó

IMPORT FROM 'D:SISTEMASPSD1LIBRO1.XLS TYPE XL5 ó

IMPORT FROM 'D:SISTEMASPSD1LIBRO1.XLS TYPE XLs

al dar estos comandos se me cuelga el FOX PRO y esto pasa solo con los archivos de excell 2002 y superior, pero por ejemplo cuando lo hago con un archivo de excell 97 o XP si me convierte el excell a DBF sin problemas.
Quiero saber que comandos necesito usar o si necesito algun parche para hacerlo lo mismo con archivo de EXCELL 2002 O SUPERIOR pero sin que se me cuelgue el FOX PRO

Gracias espero puedan ayudarme Saludos gente
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMA AL IMPORTAR EXCELL 2002

Publicado por richard marriaga (174 intervenciones) el 05/05/2008 14:32:58
Amigo tube el mismo problema con el sistema windows vista. y no pude pasar los datos de esa forma, para poder importar los datos utilize una aplicacion que alguien me paso

es mas demorado pero de esta forma los pase

- Ojo si alguna celda esta en blanco no te pasa el registro y te muestra un mensaje en pantalla que no permite valor null - la ventana te muetras varias opciones le das pasar por alto.

espero te sirva.

LOCAL oExcel, lfiladatos, ifila, icolumna, cfile
iFila = 1
iColumna = 1
Filadatos = .T.
oExcel = CREATEOBJECT("Excel.application")
cfile = "C:JUEZDYNAMICDATOSdetalle.xls"
oExcel.workbooks.open(cfile)
*SET DEFAULT TO c:JUEZDYNAMIC
SET PATH TO datos
use tdato002
DO WHILE filadatos

IF VARTYPE (oExcel.cells(ifila,1).value)= .NULL.
Filadatos = .F.
oExcel.Quit
ELSE
lcr = oExcel.cells(iFila,1).value
lcN = oExcel.cells(iFila,2).value
lcd = oExcel.cells(iFila,3).value
lcT = oExcel.cells(iFila,4).value
*lctra = oExcel.cells(iFila,5).value
*ljuz = oExcel.cells(iFila,6).value
*lciu = oExcel.cells(iFila,7).value
SELECT tdato002
INSERT INTO tdato002(radicacion,fecha,detalle,idrad);
values (lcr,lcn,lcd,lct)
iFila = iFila + 1
apll = STR(ifila)
WAIT apll WINDOW AT 70,20 TIMEOUT 0.001

ENDIF
ENDDO
oExcel.quit
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar