With more than 16384 records, you must either use Excel automation, or save to another file format in Excel, and import from that.

>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