oExcel = createobject("Excel.Application") >with oExcel > .Workbooks.Open(lcXLSFile) > with .ActiveWorkbook > .SaveAs(lcfilename,xlHTML) > .Saved = .t. > .Quit > endwith >endwith