EasyXLS

How to set rich text format in cells in VB.NET

'-----------------------------------------------------------------
' Tutorial 19
'
' This tutorial shows how to create an Excel file in VB.NET having
' multiple sheets. The first sheet is filled with data and the
' first cell of the second row contains data in rich text format.
'-----------------------------------------------------------------
Click here to see the Excel file

Imports EasyXLS
Imports EasyXLS.Constants

Module Tutorial19

    Sub Main()

        Console.WriteLine("Tutorial 19" & vbCrLf & "----------" & vbCrLf)

        ' Create an instance of the class that exports Excel files having two sheets
        Dim workbook As New ExcelDocument(2)

        ' Set the sheet names
        workbook.easy_getSheetAt(0).setSheetName("First tab")
        workbook.easy_getSheetAt(1).setSheetName("Second tab")

        ' Get the table of data for the first worksheet
        Dim xlsFirstTab As ExcelWorksheet = workbook.easy_getSheetAt(0)
        Dim xlsFirstTable = xlsFirstTab.easy_getExcelTable()

        ' Create the string used to set the RTF in cell
        Dim sFormattedValue As String
        sFormattedValue = sFormattedValue & "This is <b>bold</b>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <i>italic</i>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <u>underline</u>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <underline double>double underline</underline double>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <font color=red>red</font>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <font color=rgb(255,0,0)>red</font> too."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <font face=""Arial Black"">Arial Black</font>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <font size=15pt>size 15</font>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <s>strikethrough</s>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <sup>superscript</sup>."
        sFormattedValue = sFormattedValue & Chr(10) & "This is <sub>subscript</sub>."
        sFormattedValue = sFormattedValue & Chr(10) & "<b>This</b> <i>is</i> " & _
                          "<font color=red face=""Arial Black"" size=15pt>" & _
                          "<underline double>formatted</underline double></font> <s>text</s>."

        ' Set the rich text value in cell
        xlsFirstTable.easy_getCell(1, 0).setHTMLValue(sFormattedValue)
        xlsFirstTable.easy_getCell(1, 0).setDataType(DataType.STRING)
        xlsFirstTable.easy_getCell(1, 0).setWrap(True)
        xlsFirstTable.easy_getRowAt(1).setHeight(250)
        xlsFirstTable.easy_getColumnAt(0).setWidth(250)

        ' Export Excel file
        Console.WriteLine("Writing file C:\Samples\Tutorial19.xls.")
        workbook.easy_WriteXLSFile("C:\Samples\Tutorial19.xls")

        ' Confirm export of Excel file
        Dim sError As String = workbook.easy_getError()
        If (sError.Equals("")) Then
            Console.Write(vbCrLf & "File successfully created. Press Enter to Exit...")
        Else
            Console.Write(vbCrLf & "Error encountered: " & sError & vbCrLf & "Press Enter to Exit...")
        End If
        
        ' Dispose memory
        workbook.Dispose()
        
        Console.ReadLine()
    End Sub

End Module

EasyXLS Excel libraries:

.NET
Excel Library for VB.NET
full .NET version to import, export or convert Excel files
Excel Writer for VB.NET
.NET version to create and export Excel files
Download EasyXLS™ Excel Library for VB.NET

File formats:

MS Excel 97
MS Excel 2003
MS Excel 2007
MS Excel 2010
MS Excel 2013
MS Excel 2016
MS Excel 2019
XLS XLSX XLSM XLSB
XML HTML CSV TXT