How I Convert Or Export Append Div Html Into Excel Workbook

Public Sub btnexportexe_Click(sender As Object, e As EventArgs)

    Response.Clear()
    Response.Buffer = True
    Response.Charset = ""
    Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
    Response.AddHeader("content-disposition", "attachment;filename=SqlExport.xlsx")

    Using sw As New StringWriter()
        Dim tw As New HtmlTextWriter(sw)

        Dim dt As DataTable
        divdet.RenderControl(tw)

        Using wb As New XLWorkbook()
            wb.Worksheets.Add(dt, "Customers")

            Response.Clear()
            Response.Buffer = True
            Response.Charset = ""
            Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
            Response.AddHeader("content-disposition", "attachment;filename=SqlExport.xlsx")
            Using MyMemoryStream As New MemoryStream()
                wb.SaveAs(MyMemoryStream)
                MyMemoryStream.WriteTo(Response.OutputStream)
                Response.Flush()
                Response.End()
            End Using
        End Using