topic-43103

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

DBF to Excel : Another faster way
Posted: Wed Apr 26, 2023 07:05 AM

Please try this:

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

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion