Экспорт значений Excel в HTML с использованием VB.Net

Question

У меня есть Windows Формы с операцией нажатия кнопки.

При нажатии кнопки указанные столбцы в Excel должны быть экспортированы в html.

Я использовал метод «Сохранить как». Но не удается открыть формат файла в любом браузере. Помогите, пожалуйста, как экспортировать указанные c столбцы ('B', 'D') в hmtl с цветом ячейки.

Dim xlApp As Excel.Application

Dim xlWB As Excel.WorkBook

Dim xlSH As Excel.WorkSheet

Dim str_File As String = "C:\Sample.xlsx"

xlApp = New Excel.Application

xlWB = xlApp.Workbooks.Open(str_File)

xlSH = xlWB.WorkSheets("merge")

xlSH.SaveAs("C:\Sample.html")

Answer 1

Просто добавьте параметр FileFormat к методу .SaveAs и Боб станет вашим дядей. Я также закрыл и вышел из Workbook и Application соответственно. Я добавил код G C в вызывающий метод, чтобы избавиться от призрачного Excel при отладке.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    OpCode()
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Sub

Private Sub OpCode()
    Dim str_File As String = "C:\Users\xxx\Documents\Excel\Politics\2020 Election.xlsx"
    Dim xlApp As New Excel.Application
    Dim xlWB As Excel.Workbook = xlApp.Workbooks.Open(str_File)
    Dim xlSH As Excel.Worksheet = CType(xlWB.Worksheets(1), Excel.Worksheet)
    xlSH.SaveAs("C:\Users\xxx\Documents\Excel\Sample.html", Excel.XlFileFormat.xlHtml)
    xlWB.Close()
    xlApp.Quit()
End Sub