使用VB.Net将Excel值导出为HTML值

Dim excelApp As New Microsoft.Office.Interop.Excel.Application
Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open("Excel文件路径")

Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet = workbook.Worksheets("工作表名称")

Dim html As String = "<table>"
For row As Integer = 1 To worksheet.UsedRange.Rows.Count
    html += "<tr>"
    For column As Integer = 1 To worksheet.UsedRange.Columns.Count
        Dim cell As Microsoft.Office.Interop.Excel.Range = worksheet.Cells(row, column)
        html += "<td>" + cell.Value.ToString() + "</td>"
    Next
    html += "</tr>"
Next
html += "</table>"

workbook.Close()
excelApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

Imports Microsoft.Office.Interop

Public Class ExcelToHtmlExporter
    Public Sub ExportToHtml(excelFilePath As String, worksheetName As String) As String
        Dim excelApp As New Microsoft.Office.Interop.Excel.Application
        Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open(excelFilePath)
        Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet = workbook.Worksheets(worksheetName)

        Dim html As String = "<table>"
        For row As Integer = 1 To worksheet.UsedRange.Rows.Count
            html += "<tr>"
            For column As Integer = 1 To worksheet.UsedRange.Columns.Count
                Dim cell As Microsoft.Office.Interop.Excel.Range = worksheet.Cells(row, column)
                html += "<td>" + cell.Value.ToString() + "</td>"
            Next
            html += "</tr>"
        Next
        html += "</table>"

        workbook.Close()
        excelApp.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

        Return html
    End Sub
End Class

Dim exporter As New ExcelToHtmlExporter()
Dim html As String = exporter.ExportToHtml("Excel文件路径", "工作表名称")
Console.WriteLine(html)