La Forma mas rapida de DBF to EXCEL

[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  Expand view

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.

[cnavarro]

Has probado la function FW_DbfToExcel() ?

[Silvio.Falconi]

Mr Cristobal, there are problems, do you Know it ?
viewtopic.php?f=3&t=38104&start=0

[cnavarro]

Mr. Silvio, yes,I know this

viewtopic.php?f=3&t=35201&p=209803&hilit=arrtranspose#p209503

[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 viewtopic.php?f=3&t=38104&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  Expand view

@ 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  Expand view

@ 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 ?

[Silvio.Falconi]

Cris found the solution see the email