ASP.NET - Exportar datos de gridView a excel

<% @ import namespace = "system.IO" % >

Codigo para pasar a excel

Dim sb As New StringBuilder()

Dim sw As New StringWriter(sb)

Dim htw As New HtmlTextWriter(sw)

Dim page As New Page()

Dim form As New HtmlForm()

GridView1.EnableViewState = False

' Deshabilitar la validación de eventos, sólo asp.net 2 

page.EnableEventValidation = False

' Realiza las inicializaciones de la instancia de la clase Page que requieran los diseñadores RAD. 

page.DesignerInitialize()

page.Controls.Add(form)

form.Controls.Add(GridView1)

page.RenderControl(htw)

Response.Clear()

Response.Buffer = True

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader("Content-Disposition", "attachment;filename=data.xls")

Response.Charset = "UTF-8"

Response.ContentEncoding = Encoding.[Default]

Response.Write(sb.ToString())

Response.[End]()

Dim sb As StringBuilder = New StringBuilder()

Dim SW As System.IO.StringWriter = New System.IO.StringWriter(sb)

Dim htw As HtmlTextWriter = New HtmlTextWriter(SW)

Dim Page As Page = New Page()

Dim form As HtmlForm = New HtmlForm()

Me.gvEstadisticas.EnableViewState = False

Page.EnableEventValidation = False

Page.DesignerInitialize()

Page.Controls.Add(form)

form.Controls.Add(Me.gvEstadisticas)

Page.RenderControl(htw)

Response.Clear()

Response.Buffer = True

Response.ContentType = "application/vnd.ms-excel"

Response.AddHeader("Content-Disposition", "attachment;filename=data.xls")

Response.Charset = "UTF-8"

Response.ContentEncoding = Encoding.Default

Response.Write(sb.ToString())

Response.End()

Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs)

    Response.Clear()

    Response.AddHeader("content-disposition", "attachment;filename=Registros.xls")

    'Response.BufferOutput = True

    'Response.ContentEncoding = System.Text.Encoding.UTF8

    'Response.Charset = "UTF-8"

    'Response.ContentEncoding = System.Text.Encoding.Default

    'Me.EnableViewState = False

    'Response.Cache.SetCacheability(HttpCacheability.NoCache)

    Response.ContentType = "application/vnd.ms-xls"

    GridView1.AllowPaging = False

    GridView1.Columns(5).Visible = False

    Dim stringWrite As System.IO.StringWriter = New System.IO.StringWriter

    Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)

    ' GridView1.RenderControl(htmlWrite)

    Response.Write(stringWrite.ToString())

    Response.End()

    GridView1.Columns(5).Visible = True

    'gv.AllowPaging = True

End Sub

Response.ClearContent();

Response.AddHeader("content-disposition", "attachment;filename=FileName.xls");

Response.Charset = "";

Response.Cache.SetCacheability(HttpCacheability.NoCache);

Response.ContentType = "application/vnd.xls";

System.IO.StringWriter stringWrite = new System.IO.StringWriter();

System.Web.UI.HtmlTextWriter htmlWrite = new HtmlTextWriter(stringWrite);

GridView1.RenderControl(htmlWrite);

Response.Write(stringWrite.ToString());

Response.End();

public override void VerifyRenderingInServerForm(Control control)

{

}

Private Sub GenerarExcel()

    Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()

    excel.Application.Workbooks.Add(True)

    Dim ColumnIndex As Integer = 0

    For Each col As DataGridViewColumn In GrillaReporte.Columns

        ColumnIndex += 1

        excel.Cells(1, ColumnIndex) = col.Name

    Next

    Dim rowIndex As Integer = 0

    For Each row As DataGridViewRow In GrillaReporte.Rows

        rowIndex += 1

        ColumnIndex = 0

        For Each col As DataGridViewColumn In GrillaReporte.Columns

            ColumnIndex += 1

            excel.Cells(rowIndex + 1, ColumnIndex) = row.Cells(col.Name).Value

        Next

    Next

    excel.Visible = True

End Sub

private void GenerarExcel()

{

    Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.Application();

    excel.Application.Workbooks.Add(true);

    int ColumnIndex = 0;

    foreach (DataGridViewColumn col in GrillaArticulos.Columns)

    {

        ColumnIndex++;

        excel.Cells[1, ColumnIndex] = col.Name;

    }

    int rowIndex = 0;

    foreach (DataGridViewRow row in GrillaArticulos.Rows)

    {

        rowIndex++;

        ColumnIndex = 0;

        foreach (DataGridViewColumn col in GrillaArticulos.Columns)

        {

            ColumnIndex++;

            excel.Cells[rowIndex + 1, ColumnIndex] = row.Cells[col.Name].Value;

        }

    }

    excel.Visible = true;

}