Page 1 of 1

La Forma mas rapida de DBF to EXCEL

Posted: Thu Dec 05, 2019 8:01 pm
by VitalJavier
Hola buen dia a Todos
Pues eso, estoy tratando de pasar datos de una dbf
a excel y se tarda , la cantidad de registros es un promedio de
300,000

Code: Select all

oExce := CreateObject( "Excel.Application" )
oBook := oExce:WorkBooks:Add()
oShee := oBook:WorkSheets(1)
oHoja  := oExce:ActiveSheet
 
y hago un barrido de la tabla con un DO WHILE !Eof()

Alguien me podria echar una mano
Gracias por su tiempo.

Re: La Forma mas rapida de DBF to EXCEL

Posted: Thu Dec 05, 2019 8:37 pm
by cnavarro
Has probado la function FW_DbfToExcel() ?

Re: La Forma mas rapida de DBF to EXCEL

Posted: Fri Dec 06, 2019 10:11 am
by Silvio.Falconi
Mr Cristobal, there are problems, do you Know it ?
http://forums.fivetechsupport.com/viewt ... 04&start=0

Re: La Forma mas rapida de DBF to EXCEL

Posted: Fri Dec 06, 2019 10:40 am
by cnavarro

Re: La Forma mas rapida de DBF to EXCEL

Posted: Fri Dec 06, 2019 3:40 pm
by Silvio.Falconi
Cris,

the problem is another

on my application I load the oRange

oRange := GetExcelRange(cFileXls , , @lOpened)

it load good the excel file

then I must save all into a dbf and I have problem using FW_DbfToExcel() because this function use at the end the function FW_ArrayToDBF

here there is the problem I explain on topic http://forums.fivetechsupport.com/viewt ... 04&start=0

then I founded ( for now a good solution) to resolve this problem with two easy commands

Create a dialog with a Xbrowse

Code: Select all

@ 1,2 xbrowse oBrowse ARRAY oRange  ;
   SIZE 100,62 PIXEL STYLE FLAT NOBORDER
put on dialog a button to create a dbf from oXbrowse with the comman ToDbf()

Code: Select all

 @ 1,2 button oBtnDbf Prompt "Conversione" size 120,20 ;
                   of oDlg action (oBrowse:ToDbf(cFileDbf),  oDlg:end( IDOK ) )
 
then I have the same result

perhaps there is an error on FW_ExcelToDbf function

because I load the excel file the same command

oRange := GetExcelRange(cFileXls , , @lOpened)

and it save on range the exactly records
the error is then from line 229 to line 271 of FW_ExcelToDbf function

because it converte the row with the columns I not Know why and it create the problem

perhpas the command DEFAULT oRange := GetExcelRange() with no parameters change something ?

Re: La Forma mas rapida de DBF to EXCEL

Posted: Fri Dec 06, 2019 4:20 pm
by Silvio.Falconi
Cris found the solution see the email
Image