HtmlExportSampleVB

Imports GemBox.Spreadsheet

Module HtmlExportSampleVB

    Sub Main(ByVal args As String())
        ' TODO: If using GemBox.Spreadsheet Professional, put your serial key below.
        ' Otherwise, if you are using GemBox.Spreadsheet Free, comment out the 
        ' following line (Free version doesn't have SetLicense method). 
        'SpreadsheetInfo.SetLicense("YOUR-SERIAL-KEY-HERE")

        Dim excelFile As New ExcelFile
        Dim inputFileName As String = "..\..\HtmlExportSampleIN.xls"
        Dim outputFileName As String = "..\..\HtmlExportSampleOUT.html"

        excelFile.LoadXls(inputFileName, XlsOptions.None)

        'Here you can set HTML exporter options.
        Dim options As New HtmlExporterOptions

        options.ShowColumnLetters = True
        options.ShowRowNumbers = True

        excelFile.Worksheets.ActiveWorksheet.GetUsedCellRange.ExportToHtml(outputFileName, options, True)

        ' You can use simple ExcelFile.SaveHtml method for the same result.
        'excelFile.SaveHtml(outputFileName, Nothing, True)

        TryToDisplayGeneratedFile(outputFileName)
    End Sub


    Private Sub TryToDisplayGeneratedFile(ByVal fileName As String)
        Try
            Process.Start(fileName)
        Catch exception1 As Exception
            Console.WriteLine((fileName & " created in application folder."))
        End Try
    End Sub

End Module