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

EasyXLS Excel library can be used to export Excel files in VB.NET. The library works with .NET Framework or .NET Core platform.

Step 1: Download EasyXLS Excel Library for .NET

To download the trial version of EasyXLS Excel Library, press the below button:

Download EasyXLS™ Excel Library for VB.NET

If you already own a license key, you may login and download EasyXLS from your account.

Install the downloaded EasyXLS installer for v8.6 or earlier.

Step 2: License file setup

Step required for EasyXLS v9.0 or later.

If you are using a trial, generate a trial license file from EasyXLS trials page. The trial license is valid for 30-days.

If you own a license key, you may login to the account that purchased the license and generate the license file from:

Setup the license file into your project using these guidelines.

Step 3: Create a VB.NET project

If don't have a project, create one as ASP.NET web application, windows forms app, console application, class library or service.

Step 4: Include EasyXLS library into project

EasyXLS.dll must be added as reference to your project. EasyXLS.dll can be found:
- Inside the downloaded archive at Step 1 for EasyXLS v9.0 or later
- Under installation path for EasyXLS v8.6 or earlier, in "Dot NET version" folder.

Add EasyXLS reference

Step 5: Run VB.NET code that sets rich text format in Excel cells

Execute the following VB.NET code that exports rich text format (RTF) in an Excel cell.

' 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.

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)

        ' Export Excel file
        Console.WriteLine("Writing file C:\Samples\Tutorial19 - RTF for Excel cells.xlsx.")
        workbook.easy_WriteXLSXFile("C:\Samples\Tutorial19 - RTF for Excel cells.xlsx")

        ' 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...")
            Console.Write(vbCrLf & "Error encountered: " & sError & vbCrLf & "Press Enter to Exit...")
        End If
        ' Dispose memory
    End Sub

End Module

EasyXLS Excel libraries:

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 - 2003
MS Excel 2007 - 2019
MS Excel 2021
Office 365