thank you for reply and explain,
>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