USE MyTable && RECCOUNT("MyTable") > 16384 lcDBF = "c:\temp\MyDBF.dbf" lcXLS = "c:\temp\MyXLS.xls" COPY TO (lcDBF) TYPE FOX2X loExcel = CREATEOBJECT("Excel.Application") WITH loExcel.Application .Workbooks.Open(lcDBF) .ActiveWorkbook.SaveAs(lcXLS, -4143, "", "", .F., .F.) .Workbooks.Close ENDWITH RELEASE loExcel