FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Pasar DBF a EXCEL "SOLUCIONADO"
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Pasar DBF a EXCEL "SOLUCIONADO"
Posted: Tue Mar 16, 2021 01:38 PM

Hola Amigos.

Necesito en forma urgente pasar completamente una Dbf a Excel, no se requiere ninguna exigencia especial, debe pasar los mismo campo y datos.

El requisito es hacerlo para Excel de Office 2010.

  1. FW_DbfToExcel() = No funciona en Excel 2010 con campos Date()

  2. ToExcel() = No uso Xbrowse.

En espera de su urgente ayuda, les saluda,

Antonio.

FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 01:54 PM
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38145&p=227857&hilit=Pasar+DBF+a+EXCEL&sid=a5d012ed0b5d14d02e5e583200a7717d&sid=be8261c81a99f643c37c81ee05972ceb#p227857
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 02:31 PM

Hola Karinha

Muchas gracias por responder.

De este link, aplique lo que explico, al igual que explique en un link anterior sobre el mismo problema.

FW_DbfToExcel(), cumpliria con mi necesidad, pero no convierte correctamente los campos fecha en Excel 2010.

Ejemplo: Fecha "15/01/2021", en excel Office 2010 lo muestra con el valor "44211".

Saludos,

Antonio

FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 02:44 PM

Muestra t煤 c贸digo final, no tengo excel 2010 para testes.

Saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 03:07 PM
Muchas gracias Karinha.

Este simple codigo, abre la dbf y genera la planilla, cuando se abre excel con la planilla, esta tiene el campo fecha con el valor que indico arriba.

Ahora si esta misma dbf la abro directo desde excel, el campo fecha se muestra correctamente, lo que indica que es algo en la conversi贸n que realiza FW_DbfToExcel().

Saludos

Antonio

Code (fw): Select all Collapse
聽 聽 聽 MsgRun(" GENERANDO PLANILLA EXCEL ", "Espere...")
聽 聽 聽 
聽 聽 聽 Sele 1
聽 聽 聽 Use Ingreso Exclusive
聽 聽 聽 聽 聽
聽 聽 聽Ingreso->( FW_DbfToExcel())

聽 聽 聽MsgRun(" ABRIENDO Y CARGANDO PLANILLA EXCEL ", "Espere...")
FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 03:28 PM
Mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=37425&start=0

Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Pasar DBF a EXCEL
Posted: Tue Mar 16, 2021 11:22 PM

Amigo:

La r谩pida, abre la DBF con Excel y listo.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 08:45 AM
Code (fw): Select all Collapse
   USE CUSTOMER NEW VIA "DBFCDX"
   FW_DbfToExcel( "FIRST,CITY,AGE,HIREDATE,SALARY", , { || RECNO() < 6 } )
   return nil


Regards



G. N. Rao.

Hyderabad, India
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 12:36 PM
nageswaragunupudi wrote:
Code (fw): Select all Collapse
 聽 USE CUSTOMER NEW VIA "DBFCDX"
聽 聽FW_DbfToExcel( "FIRST,CITY,AGE,HIREDATE,SALARY", , { || RECNO() < 6 } )
聽 聽return nil




Amigo, muchas gracias por responder.

Aplique lo que me indicas, pero en Office 2010, pero para la fecha 15/01/2021 la cambia por 44211 y me entrega esto:
Fol_ing Fec_Ate Det_Pac
1984421 44211 SONIA PUELMA XXXXXX
1984432 44211 ISAAC IBA脩EZ RAMA
1984443 44211 EDGAR BARRA VURGOS
1984454 44211 ALBERTINA ORDENES VELIZ

En Office 365 funciona muy bien, pero mi cliente funciona con Office 2010.

Muchos saludos y muchas gracias.
Antonio

Code (fw): Select all Collapse
Sele Ingreso
FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} )
FWH 22.10 - HARBOUR - PELLES C
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 12:39 PM
Armando wrote:Amigo:

La r谩pida, abre la DBF con Excel y listo.

Saludos


Hola Armando, como estas.

Seria lo ideal para si el cliente lo quisiera asi, pero su requerimiento es que desde el boton "Genera Excel", se abra la planilla en su excel, no quiso que se guardara en el disco, la planilla desea hacer algunos controles y comparaciones con otras.

Muchas gracias y muchos saludos.

Antonio
FWH 22.10 - HARBOUR - PELLES C
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 03:58 PM

Hola Amigos

No logro dar con la soluci贸n, usando Excel 2010.

He probado con:

Ingreso->(FW_DbfToExcel( ,,,,,, cSaveTo2 )) <--- Grando en Disco
o
Ingreso->( FW_DbfToExcel()) <--- Abriendo planilla directo a excel.

Incluso, pase la fecha como Character, para ver si cambiaba y nada.

Ambas opciones el campo fecha, no registra como un numero, como lo indico mas arriba.

Alguna idea para soluci贸n.

Saludos.

Antonio

FWH 22.10 - HARBOUR - PELLES C
jvtecheto
Posts: 607
Joined: Mon Mar 04, 2013 04:32 PM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 06:46 PM


Aplique lo que me indicas, pero en Office 2010, pero para la fecha 15/01/2021 la cambia por 44211 y me entrega esto:
Fol_ing Fec_Ate Det_Pac
1984421 44211 SONIA PUELMA XXXXXX
1984432 44211 ISAAC IBA脩EZ RAMA
1984443 44211 EDGAR BARRA VURGOS
1984454 44211 ALBERTINA ORDENES VELIZ



Una pregunta , si esta fecha(44211) intentas formatearla manualmente como fecha en otro formato, te lo cambiar a 15/01/2021 o tampoco ?

Saludos

Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Wed Mar 17, 2021 07:41 PM
Hola Jose.

Muchas gracias por responder.

Revise el tipo de campo que viene el la planilla:

Campo Fecha en la base de datos: "Fec_Ate" , "D",08,0

Campo Fecha en planilla generada: Numero

Pero revisando todos los campos de la planilla, son tipo N煤mero.

Muchos Saludos

Antonio

Estructura de la Base de datos completa:
Code (fw): Select all Collapse
aStru :={{"Fol_Ing" , "N",10,0 },;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Fec_Ate" , "D",08,0 },;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Nom_Pac" , "C",35,0 },;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Tip_Ate" , "C",4,0},; 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Cod_Esp" , "C",4,0},; 聽 聽 聽
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Med_Tra" , "C",4,0 },; 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Tip_Pag" , "C",4,0 },; 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Val_Bon" , "N",10,0 },; 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Rut_Afi" , "C",12,0 },; 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Fol_Caj" , "N",10,0 },; 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{"Num_Bon" , "C",15,0 }}
FWH 22.10 - HARBOUR - PELLES C
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Pasar DBF a EXCEL
Posted: Thu Mar 18, 2021 02:01 AM
Please try:
Code (fw): Select all Collapse
oSheet := FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} )
oSheet:Columns( 2 ):NumberFormat := "dd/mm/yyyy"

Also, please let us know your version of FWH.
Regards



G. N. Rao.

Hyderabad, India
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Pasar DBF a EXCEL
Posted: Thu Mar 18, 2021 12:24 PM
nageswaragunupudi wrote:Please try:
Code (fw): Select all Collapse
oSheet := FW_DbfToExcel( "Fol_ing,Fec_Ate,Det_Pac", , { || RECNO() < 100} )
oSheet:Columns( 2 ):NumberFormat := "dd/mm/yyyy"

Also, please let us know your version of FWH.


Mr Roa,

Muy buen dia.

Muchas gracias por responder, como siempre Maestro.

Funciono Perfecto, ahora podre dormir tranquilo.

Muchos Saludos.
Antonio
FWH 22.10 - HARBOUR - PELLES C
Static archive 路 New replies & topics via GitHub Discussions