lcOutFile = 'mytable.dbf' #define xlDBF3 8 #define xlDBF4 11 oExcel=createobject('Excel.Application') with oExcel .Workbooks.Open(lcExistingXLSFullPath) .ActiveWorkBook.ActiveSheet.SaveAs(sys(5)+curdir()+lcOutFile,xlDBF3) .Quit endwith