下面是代码,大家只要复制到自己的程序中就能使用,其中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" %>
完了