Alternativa Transfer DBF2XLS

oExcel = Createobject("Excel.Application")
oExcel.WorkBooks.Add

Use Home()+"samples\data\Customer"Shared
Set Talk Off

nNumRegExp = 15 && Reccount()

For i= 1 To nNumRegExp
For J = 1 To Fcount()
oExcel.ActiveSheet.cells(i,J).Value= Eval(Field(J))
Next
Skip
Next

oExcel.Visible= .T.