How to Create HTML String with Multiple Cell Using WinForms Excel?

using Syncfusion.XlsIO;

Imports Syncfusion.XlsIO

// Instantiate the ExcelEngine
using (ExcelEngine excelEngine = new ExcelEngine())
{
    // Open existing workbook with data entered
    Assembly assembly = typeof(Program).GetTypeInfo().Assembly;
    Stream fileStream = assembly.GetManifestResourceStream("MultipleHTMLString.Sample.xlsx");
 
    // Instantiate IApplication object
    IApplication application = excelEngine.Excel;
 
    // Load the existing Excel file into IWorkbook
    IWorkbook workbook = application.Workbooks.Open(fileStream);
 
    // Access the first worksheet in the Excel workbook
    IWorksheet worksheet = workbook.Worksheets[0];
 
    // Access the worksheet migrant ranges
    IMigrantRange range = worksheet.MigrantRange;
 
    // Create HTML string from multiple range
    string htmlString = "<table>";
 
    for (int row = 1; row <= worksheet.UsedRange.LastRow; row++)
    {
       htmlString += "<tr>";
        for (int col = 1; col <= worksheet.UsedRange.LastColumn; col++)
        {
           range.ResetRowColumn(row, col);
            htmlString += "<td>" + range.HtmlString + "</td>";
 }
        htmlString += "</tr>";
    }
    htmlString += "</table>";
 
    // Save the string in ab HTML document
    StreamWriter writer = File.CreateText("Data.html");
 
    writer.Write(htmlString);
    writer.Flush();
}

'Instantiate the ExcelEngine
Using excelEngine As ExcelEngine = New ExcelEngine()
 
    'Open existing workbook with data entered
    Dim assembly As Assembly = GetType(Form1).GetTypeInfo().Assembly
    Dim fileStream As Stream = assembly.GetManifestResourceStream("MultipleHtmlString.Sample.xlsx")
 
    'Instantiate IApplication object
    Dim application As IApplication = excelEngine.Excel
 
    'Load the existing Excel file into IWorkbook
    Dim workbook As IWorkbook = application.Workbooks.Open(fileStream)
 
    'Access the first worksheet in the Excel workbook
    Dim worksheet As IWorksheet = workbook.Worksheets(0)
 
    'Access the worksheet migrant ranges
    Dim range As IMigrantRange = worksheet.MigrantRange
 
    'Create HTML string from multiple range
    Dim htmlString As String = "<table>"
 
    For row As Integer = 1 To worksheet.UsedRange.LastRow
        htmlString += "<tr>"
 
        For col As Integer = 1 To worksheet.UsedRange.LastColumn
            range.ResetRowColumn(row, col)
            htmlString += "<td>" & range.HtmlString & "</td>"
        Next
        htmlString += "</tr>"
 
    Next
    htmlString += "</table>"
 
    'Save the string in an HTML document
    Dim writer As StreamWriter = File.CreateText("Data.html")
 
    writer.Write(htmlString)
    writer.Flush()
End Using