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