importar de excel a cursor en vfp

[juan carlos alvarez lopez]

buen dia
agradeceria si me pudieran apoyar existe alguna manera de importar de excel a un cursor en vfp, sobretodo cuando es una version superior del 2003 de excel por que si empleo este comando , me dice error de incompatiblidad,tego que guardarlo forzosamente a una version 5.0 95
APPEND FROM ALLTRIM(_archivocomprasmovtos) TYPE XLS

[Vinicio Altamirano]

Si es un inconveniente, sobre todo porque se debe customizar Excel para que te guarde en versión 5.0 o 95.

La otra alternativa es guardar en formato CSV

Y la mejor para mi es automatizar la conección con OLE Excell, la ventaja es que es independiente de la versiòn de Excell, el inconveniente es que se necesita mas código y se sube la información de linea en linea, consiguientemente es mas lento

Si quieres el código te paso escríbeme al WhatsApp 593988540093

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/1f6f2adc-6899-4fea-8bf3-854090285713o%40googlegroups.com.

[Jorge Kiernan]

Lo que yo hago es mandar la planilla a un PRG general de mi aplicacion, que la convierte a formato 5.0 para luego poder manejarla con el fvp 

PARAMETERS TCPLANILLA1, TCPLANILLA2
*se invoca pasando la planilla original, y opcional el nuevo nombre a dar, sino asume dtoc(date(),1)
* do programa\general\excel5 with lcfile, 'otronombre'
IF EMPTY(TCPLANILLA1)
     MESSAGEBOX('FALTA INDICA CUAL ES LA PLANILLA A CONVERTIR',16,'CANCELADO')
     RETURN
ENDIF
IF !FILE(TCPLANILLA1)
     MESSAGEBOX('NO ENCUENTRA LA PLANILLA A CONVERTIR ' + TCPLANILLA1,16,'CANCELADO')
     RETURN
ENDIF
WAIT WINDOW NOWAIT 'CAMBIANDO FORMATO DE PLANILLA '+CHR(13)+TCPLANILLA1
IF EMPTY(TCPLANILLA2)
    TCPLANILLA2 = 'SALIDA' + DTOC(DATE(),1)
ENDIF
GCDIREXCEL = ADDBS(GCDIREXCEL) && carpeta general para las planillas excel
TCPLANILLA2 = GCDIREXCEL + ALLTRIM(TCPLANILLA2)+'.XLS'
IF FILE(TCPLANILLA2)
    DELETE FILE (TCPLANILLA2)
ENDIF
LOCAL LNFORMATO
TRY
oleapp = createobject('excel.application')
with oleapp
.visible = .F.
.Workbooks.open(TCPLANILLA1)
LNFORMATO = .ActiveWorkbook.FILEFORMAT
.DISPLAYALERTS = .F.
_xlExcel5 = 39
.Sheets(1).Name = "PRINCIPAL"
.Sheets("PRINCIPAL").Select
  .ActiveWorkbook.SaveAs(TCPLANILLA2, 39 , "", "", .f., .f.)
.ActiveWorkbook.CLOSE
.QUIT
ENDWITH
rele oleApp
CATCH TO LOERROR
MESSAGEBOX('PROBLEMAS EN MANIPULAR LA PLANILLA '+TCPLANILLA1;
+CHR(13)+'Intentando convertirla en '+TCPLANILLA2;
+CHR(13)+LOERROR.MESSAGE;
,16,'ATENCION')

ENDTRY
WAIT CLEAR
RETURN

Espero te sea de utilidad.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAP4TuO5BtEwZTQWL%2BjsXdfFBq7Htf-jwmUxTVvAEDBCwWXiQYQ%40mail.gmail.com.

[Zarlu]

Buenas tardes juankial...@gmail.com !

A ver si te sirve la propuesta de código que adjunto.

No requiere guardar previo el archivo excel como 5.0/95

Suerte

zarlu

Chetumal, Quintana Roo, México

[juan carlos alvarez lopez]

mil gracias funciono de maravilla, mil gracias en verdad me has salvado :) te mando un fuerte abrazo y gracias a todos por su respuesta en verdad lo valoro mucho

[Zarlu]

Buenas tardes Foxeros!

Sobre el mismo tema...

Agregar a cursor de Vfp desde  archivo de Excel sin que se guarde como 5.0 o 95.....

Les dejo esta mejora a mi propuesta anterior.

Bien recibidos los comentarios de errores al probar.

zarlu

Chetumal, Quintana Roo, México

[Jose Antonio Blasco]

Yo, partiendo de uno que se publicó en este foro, me hice este que adjunto.

Mis disculpas a quien publicara inicialmente la base sobre la que trabajé, de quien perdí la referencia.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/233247bb-1a61-4472-a83c-e4e5ae39c3b1n%40googlegroups.com.

[Zarlu]

Buenas tardes Foxeros!

Les adjunto prg actualizado.

Le adicioné convertir a campos numéricos en el cursor.

(ver comentarios al inicio del archivo)

zarlu

Chetumal, Quintana Roo, México

[Zarlu]

Buenos días Foxeros!

Les comparto prg actualizado con correcciones.

Tenía problemas con archivos con tablas dinámicas y con titulo de columnas largas para nombres de campos

zarlu

Chetumal, Quintana Roo, México

[Hector Kuhn]

Buenas tardes

https://github.com/ggreen86/XLSX-Workbook-Class

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/da6ce94f-b4ce-436f-a7a9-0c952d982c26n%40googlegroups.com.