vfile= "W110120.XLS" oExcel = CreateObject("Excel.Application") oWorkbook = oExcel.Workbooks.Open(vFile) tSheets = oWorkbook.Sheets.Count && get total of sheets oExcel.Workbooks.SaveAs("W110120.DBF",8)