VB.NET导出到EXCEL

        Response.Clear()
        Response.Buffer = True
        Response.Charset = "utf-8"
        Response.AppendHeader("Content-Disposition", "attachment;filename=" + Now.ToString + ".xls")
        Response.ContentEncoding = System.Text.Encoding.UTF8 '设置输出流 
        Response.ContentType = "application/ms-excel"      '设置输出文件类型为excel文件。
        EnableViewState = False   '处理过程设置为不可见，后台处理
        Dim myCItrad As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("ZH-CN", True)
        Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter(myCItrad)
        Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)
        Me.GridView1.RenderControl(oHtmlTextWriter)
        Response.Write(oStringWriter.ToString())
        Response.Flush()
        Response.End()
    End Sub
    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    End Sub
    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Cells(1).Attributes.Add("style", "vnd.ms-excel.numberformat:@;")
        End If
    End Sub

转载于:https://my.oschina.net/yangchun/blog/33542