aspx网页上gridview中的数据导出到excel

下面是代码，大家只要复制到自己的程序中就能使用，其中dg_show为gridview控件的id号

Public Overloads Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
        ' base.VerifyRenderingInServerForm(control);
    End Sub
    Protected Sub btn_dc_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        DG_show.AllowPaging = False
        Response.Clear()
        Response.Buffer = True
        Response.Charset = "GB2312"
        Response.AppendHeader("Content-Disposition", "attachment;filename=gdzc.xls") '导出的文件名称
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
        '设置输出流为简体中文
        Response.ContentType = "application/ms-excel"
        '设置输出文件类型为excel文件。
        Me.EnableViewState = False
        Dim myCItrad As New System.Globalization.CultureInfo("ZH-CN", True)
        Dim oStringWriter As New System.IO.StringWriter(myCItrad)
        Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter)
        DG_show.RenderControl(oHtmlTextWriter)
        Response.Write(oStringWriter.ToString())
        Response.End()
    End Sub

 

文件名称为中文时会出现乱码，不知为什么，另外需设置AutoEventWireup="false"，不然会出错

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="XTZC.aspx.vb" Inherits="XTZC" %>

完了