>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