Enviar Datos de varias DBF a un archivo Excel de varias hojas desde Visual Foxpro

[integral]

Que tal amigos :

Despues de mas de 6 años retomo nuevamente la programacion de VFP y SQL Server

Tengo una inquietud, como hacer para trasladar información de varias tablas DBF a un archivo de Excel. Por ejemplo: en el mismo archivo de Excel Hoja1 le traslado los datos de la tabla 1, Hoja2 le traslado los datos de la tabla 2 y asi sucesivamente.

Solo he logrado pasar cada tabla por separado en varios  archivos de Excel.

 

PD : He intentando con el UpSizing de VFP y solo me crea en el SQL Server todas las tablas pero sin los registros...

Espero que me puedan  ayudar con sus comentarios y sugerencias... 
Gracias,
Att.

Integral

[Trento]

Automatización de Excel.

¿Cuantas tablas y de cuántos registros por tabla hablamos? Que Excel permito "Libros" con varias "Hojas" y tantos "reglones".

Saludos.

[Víctor Hugo Espínola Domínguez]

Prueba el adjunto.

Saludos,

Víctor.

Lambaré - Paraguay.

--
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/6075587d-94c8-4cdd-9cbd-dc0cb0366ef9n%40googlegroups.com.

[integral]

Buenas Noches

Gracias anticipadas por el apoyo que me puedan brindar

Adjunto el codigo del programa y las tablas que me marcan el error...

Atte.,

Integral

[Víctor Hugo Espínola Domínguez]

El error es porque tienes fechas vacías, una barbaridad que solo xBase permite.

Modifica el bloque Scan/Endscan:

Scan
For lnField = 1 To m.lnlnFields
    luField = Evaluate(Field(m.lnField, m.tcCursor))
    If         Vartype(luField)$ "DT" ;
        and Empty(luField)
        luField = []
EndIf
poActiveSheet.Cells(Recno(m.tcCursor), m.lnField) = luField       &&Evaluate(Field(m.lnField, m.tcCursor))
Endfor
Endscan

Saludos,

Víctor.

Lambaré - Paraguay.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/e285b872-2e57-4cfa-9bf7-34c42657ad06n%40googlegroups.com.

[integral]

Amigo Víctor Hugo

Buenos Días

Funciono con el cambio según lo esperado...

Muchas Gracias por tu apoyo.

Saludos,

Integral

(Lima-Peru)

PD : Desde la Semana pasada estoy tratando que funcione en el SQL SQLVER la importación de Datos utilizando el Microsoft OLE DB Provider for Visual Foxpro, lo he instalado ya 2 veces. He buscado información en el tema y ahí estoy tratando de que funcione...

Tambien utilize el Upsizing del VFP y para que funcione tuve que instalar el ODBC Driver de 32 Bits, realiza la importacion pero no copia el contenido de las Tablas DBF.

Buscando en el Disco Duro de BACKUP encontre el Upzing mejorado de la version SEDNA que años atras me ayudaba con el tema de la Importacion.

Hoy temprano luego de analizar el problema te comento lo siguiente...

Tengo instalado el SQL Server 2008 R2 version de 64 Bits sera este el problema y talvez deba instalar el SQL Server 2008 R2 de 32 Bits. 

Tengo instalado el ODBC Driver de 32 y 64 Bits.

Deseaba instalar el SQL Server 2014 de 64 Bits, pero lei que no es posible tener instalado en una misma Laptop 2 versiones distintas.   

[Víctor Hugo Espínola Domínguez]

https://www.mediafire.com/file/8xiswc6x7qx7x6d/Dbf2Sql.zip/file programas para migrar tablas nativas a motor SQL, crea la base de datos, copia las tablas, vistas y claves foráneas (deben tener el mismo nombre las FKs y PKs).

Saludos,

Víctor.

Lambaré - Paraguay.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/86ec6e60-2972-44c4-a914-3c3bdb0cb995n%40googlegroups.com.

[Juan Gonzalez]

quien me puede ayudar necesito leer y enviar datos por medio de get o en su defecto por odbc....   pero no tengo idea de como hacerlo

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABoLD3H-fu_2XnxNJRYMRSBCdWsDXr-vofKUQfRuDckJLMZPSg%40mail.gmail.com.

[Edwin Duran]

https://www.youtube.com/watch?v=63_PBAUtJ5c

[integral]

Amigo Victor Hugo

Decidi utilizar al final el asistente de SQL Server para importar el Archivo obtenido, descargue el archivo que me faltaba y listo.

Tema resuelto

Muchas gracias

Saludos

Integral

(Lima-Peru)

 link de descarga : https://www.microsoft.com/es-es/download/details.aspx?id=13255