Exporter := TXLSHTMLExport.Create; try Exporter.SaveAsHTML(Workbook.Sheets[1], 'c:\temp\sheet1.html'); finally Exporter.Free; end;