DBF to Excel : Another faster way

[nageswaragunupudi]

Please try this:

Code: Select all  Expand view  RUN

function dbf2xlsx( cDbf )

   local oExcel   := ExcelObj()
   local oBook, cCsv, cXls

   DEFAULT cDbf   := "CUSTOMER"

   cDbf  := TrueName( cFileSetExt( cDbf, "dbf" ) )
   cCsv  := cFileSetExt( cDbf, "csv" )
   cXls  := cFileSetExt( cDbf, "xlsx" )

   FERASE( cCsv )
   FERASE( cXls )

   USE ( cDbf ) SHARED
   COPY TO ( cCsv ) DELIMITED
   oBook := oExcel:WorkBooks:Open( cCsv )
   oBook:SaveAs( cXls, 51 )
   FErase( cCsv )
   oExcel:Visible := .t.

return nil