>>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