Dim curForm As New HtmlForm
        Dim sw As New System.IO.StringWriter()
        Dim HtW As New System.Web.UI.HtmlTextWriter(sw)

        Response.ClearContent()
        Response.AddHeader("Content-Disposition", "attachment; filename=" & XLSFile) 'กำหนดชื่อไฟล์
        Response.ContentType = "application/ms-excel"

        Response.BufferOutput = True
        Response.ContentEncoding = System.Text.Encoding.UTF8
        Response.Charset = "UTF-8"

        dim grvReport as new gridview
        grvReport.datasource = dTable 'datatable ที่ต้องการใส่ให้ grid
       
        curForm.Controls.Add(grvReport)
        Me.Controls.Add(curForm)
        curForm.RenderControl(HtW)
        Me.EnableViewState = False
        Response.Write(sw.ToString())
        Response.End()