Exportando dados para o Excel

Fala, galera!!

Fiquei meio ausente. O tempo anda escasso.
Portanto, farei um post relâmpago para quem precisa, como eu precisei, exportar dados de um gridview para uma planilha excel.

Ai vai...


Private Sub ExportarParaExcel()
        Dim util As New util
        Dim tw As New StringWriter()
        Dim hw As New System.Web.UI.HtmlTextWriter(tw)
        Dim frm As HtmlForm = New HtmlForm()
        Response.ContentType = "application/vnd.ms-excel"
        Response.AddHeader("content-disposition", "attachment;filename=Planilha.xls")
        Response.Charset = ""
        EnableViewState = False

        Controls.Add(frm)
        frm.Controls.Add(grdDados) 'Aqui você informa o seu controle GridView
        frm.RenderControl(hw)
        Response.Write(tw.ToString())
        Response.End()

    End Sub

Bem simples e bem útil.

Um abraço e até a próxima!!