[vfp] Importar media un Append From un Xlsx a DBF

2,407 views
Skip to first unread message

Manuel Zevallos

unread,
Aug 17, 2010, 3:32:50 PM8/17/10
to publice...@googlegroups.com
Estimados amigos...tengo un problema.
Tengo un sistema en VFp8 y un excel 2003. En el archivo de excel cargo data que luego es importada desde mi formulario.
Ahora tengo el Office 2007 y ya no puedo importar por que el sistema no lo reconoce.

Que puedo hacer?

Si migro a VFP9 ...puedo solucionar esto?
Agradeceré sus comentarios


--

Atte.,

Manuel Zevallos

Roberto Matarrita

unread,
Aug 17, 2010, 3:35:13 PM8/17/10
to publice...@googlegroups.com
Pues graba tu hoja con formato de excell 2003 y listo.
 
Roberto
Costa Rica.

Luis Maria Guayan

unread,
Aug 17, 2010, 3:47:42 PM8/17/10
to publice...@googlegroups.com
Otra opcion (a la de guardar en formato 2003) es utilizar estas funciones de Craig Boyd

-- Using Excel 2007 File Formats in VFP 9.0 --
http://www.sweetpotatosoftware.com/spsblog/2008/09/30/UsingExcel2007FileFormatsInVFP90.aspx

No las he probado con VFP8

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

 

Enrique

unread,
Aug 17, 2010, 4:00:11 PM8/17/10
to Comunidad de Visual Foxpro en Español
Además de lo que indica Roberto, este es un enlacé del Sr. Luís Maria
Guayan que te puede servir.


Mira este artículo traducido de Craig Boyd en PortalFox.
> -- Usando formatos de archivos de Excel 2007 en VFP 9.0 --http://www.portalfox.com/index.php?name=Sections&req=viewarticle&arti...
> Otra opción:
> -- Importando datos desde Excel 2007 usando Visual FoxPro 9.0 --http://www.portalfox.com/article.php?sid=2572

Atte.
Enrique.

Arnaldo Toledano (GMail)

unread,
Aug 17, 2010, 4:12:06 PM8/17/10
to publice...@googlegroups.com
Porque no tomas el archivo con  GETFile("Xls").
SI bien el usuario tendra que tomar él el archivo, te liberas si es Excel 2003 0 2007.
 
 
Arnaldo
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 5374 (20100817) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com

Luis Mata

unread,
Aug 17, 2010, 5:12:14 PM8/17/10
to publice...@googlegroups.com
Aqui tienes un ejemplo que funciona
----- Original Message -----
Sent: Tuesday, August 17, 2010 2:32 PM
Subject: [vfp] Importar media un Append From un Xlsx a DBF

copy to xls abrir con Office y OpenOffice.txt

Odino Ciai

unread,
Aug 17, 2010, 8:34:17 PM8/17/10
to publice...@googlegroups.com
No sirve porque el 2007 graba algo en el encabezado que hace que Vfox no lo reconozca.

Odino Ciai

od...@datamarkets.com.ar
##################################################################
The first Myth of Management:
Eso existe.


Daniel Sánchez

unread,
Aug 17, 2010, 11:37:34 PM8/17/10
to publice...@googlegroups.com
Porque has abierto tantos hilos sobre el mismo tema?????

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú

Roberto Lemos

unread,
Aug 18, 2010, 12:40:13 PM8/18/10
to publice...@googlegroups.com
Aprovechando el tema, como hago para que al importar no lea la primera linea
de encabezados?

----- Original Message -----
From: "Odino Ciai" <od...@datamarkets.com.ar>
To: <publice...@googlegroups.com>

Sent: Tuesday, August 17, 2010 7:34 PM
Subject: Re: [vfp] Importar media un Append From un Xlsx a DBF


No sirve porque el 2007 graba algo en el encabezado que hace que Vfox no lo
reconozca.


>
> Pues graba tu hoja con formato de excell 2003 y listo.
>
> Roberto
> Costa Rica.
>
> El 17 de agosto de 2010 13:32, Manuel Zevallos <zebe...@gmail.com>

> escribi�:


> Estimados amigos...tengo un problema.
> Tengo un sistema en VFp8 y un excel 2003. En el archivo de excel
> cargo data que luego es
> importada desde mi formulario.
> Ahora tengo el Office 2007 y ya no puedo importar por que el sistema
> no lo reconoce.
>
> Que puedo hacer?
>
> Si migro a VFP9 ...puedo solucionar esto?

> Agradecer� sus comentarios

Walter Alberto Sosa

unread,
Aug 18, 2010, 12:45:45 PM8/18/10
to publice...@googlegroups.com
Yo levanto en 2003 (lo que previamente guarde como xls en 2007), copio
los datos y grabo de nuevo con otro nombre.

Seguramente eso se puede hacer con codigo

El 18/08/10, Roberto Lemos <lemo...@gmail.com> escribió:


> Aprovechando el tema, como hago para que al importar no lea la primera linea
> de encabezados?
>
> ----- Original Message -----
> From: "Odino Ciai" <od...@datamarkets.com.ar>
> To: <publice...@googlegroups.com>
> Sent: Tuesday, August 17, 2010 7:34 PM
> Subject: Re: [vfp] Importar media un Append From un Xlsx a DBF
>
>
> No sirve porque el 2007 graba algo en el encabezado que hace que Vfox no lo
> reconozca.
>
>
>>
>> Pues graba tu hoja con formato de excell 2003 y listo.
>>
>> Roberto
>> Costa Rica.
>>
>> El 17 de agosto de 2010 13:32, Manuel Zevallos <zebe...@gmail.com>

>> escribió:


>> Estimados amigos...tengo un problema.
>> Tengo un sistema en VFp8 y un excel 2003. En el archivo de excel
>> cargo data que luego es
>> importada desde mi formulario.
>> Ahora tengo el Office 2007 y ya no puedo importar por que el sistema
>> no lo reconoce.
>>
>> Que puedo hacer?
>>
>> Si migro a VFP9 ...puedo solucionar esto?

>> Agradeceré sus comentarios


>>
>>
>> --
>>
>> Atte.,
>>
>> Manuel Zevallos
>>
>>
>
> Odino Ciai
>
> od...@datamarkets.com.ar
> ##################################################################
> The first Myth of Management:
> Eso existe.
>
>
>


--
Walter Alberto Sosa
Consultor

sys...@gmail.com

unread,
Apr 26, 2021, 10:09:28 AM4/26/21
to Comunidad de Visual Foxpro en Español
no puedo hacer que me retorne un valor del handler mayor que 0, tanto con Microsoft.ACE.OLEDB.12.0 y MSDASQL.1 siempre me retorna -1, estoy con win 10, hay algun comentario mas sobre el proveedor o la configuracion del ODBC?

Antonio Lima

unread,
Apr 26, 2021, 10:22:09 AM4/26/21
to publice...@googlegroups.com
Hola,

Tienes que usar forzosamente Microsoft.ACE.OLE ?

por que no abres el xlsx usando comandos ole?, te envio un ejemplo, a ver si te sirve.

LOCAL llResult, lcError
lcError = ""

local lcXL, oExcel, ole1

local lnFila
lnFila = 0

local lnTot
lnTot = 0

TRY 

lcXls = "c:\mifichero.xlsx"

llResult = FILE(lcXLS)
IF !llResult
     lcError = "El fichero no Existe "+lcXLS
ENDIF

IF llResult 

  oExcel = CREATEOBJECT("Excel.Application")
   oExcel.DisplayAlerts = .F.
   oExcel.Visible = .t.
   oExcel.WorkBooks.Open(lcXLS)
   ole1 = oExcel.workbooks.item(1)

   lnFila = 2
    
   DO WHILE !ISNULL( ole1.sheets.item(1).cells(lnFila,1))

       lnColumna = 1

         lnTot = CAST( NVL(.cells(lnFila, lnColumna ).Value, 0) AS numeric(12,2))

        select miTabla
        append blank
        repla campoTotal with lnTot

        lnFila = lnFila +1
   ENDDO

CATCH TO loErr
      lcError = loErr.Message
ENDTRY

oExcel.Quit  

RELEASE ole1, oExcel

llResult = EMPTY(lcError)
IF !llResult
       wait window  "Fichero "+lcXLS+" Error: "+lcError
ENDIF


--
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/f717cc16-3fbc-4050-94c1-db34ddeb065fn%40googlegroups.com.

Zarlu

unread,
Apr 26, 2021, 12:48:15 PM4/26/21
to Comunidad de Visual Foxpro en Español
Buenos días sys.alf !

Por el título de éste tema espero te sirva el prg que adjunto.
Estoy por incluir unas líneas de código para las columnas tipo fecha

Suerte
zarlu
Chetumal, Quintana Roo, México
exceltocursor-2021-01-06.prg
Reply all
Reply to author
Forward
0 new messages