hi all,
i try with this code below it work for 16384 records only, but the sheet have 39397 records,
any help

Local lcFile, lcTemp, lcDBF
lcFile = Getfile("xlsx")
lcTemp = Addbs(Getenv("TEMP"))+Sys(3)+".xls"
loExcel = Createobject("excel.application")
loExcel.Workbooks.Open(lcFile)
loExcel.ActiveWorkbook.SaveAs(lcTemp,39)  && Place it in the temp folder
loExcel.ActiveWindow.Close(.T.)
loExcel.Quit
Import From (m.lcTemp) Type Xls   && or XL5
lcDBF = Justfname(Dbf())
Close Databases All
Rename (m.lcDBF) To (Juststem(m.lcFile)+'.dbf')
Delete File (m.lcTemp)

thanks