Set document = CreateObject("Bytescout.Spreadsheet.Spreadsheet")

document.RegistrationName = "demo"
document.RegistrationKey = "demo"

document.LoadFromFile("TestForHtmlExport.xls")

' Export whole document to set of HTML files
document.SaveAsHTML "Document.html"

' Export single worksheet
document.Worksheets.Item(0).SaveAsHTML "Worksheet1.html"