asp.net table页面内容导出到Excel

Code

Protected Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click

Response.Clear()

Response.Buffer = True

Response.Charset = "GB2312"

'下面这行很重要 attachment 参数表示作为附件下载，您可以改成 online在线打开

'filename=FileFlow.xls 指定输出文件的名称，注意其扩展名和指定文件类型相符，可以为：.doc 　　 .xls 　　 .txt 　　.htm

Response.AppendHeader("Content-Disposition", "attachment;filename=FileFlow.xls")

Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")

'Response.ContentType::application/ms-excel、application/ms-word、application/ms-txt、application/ms-html 或其他浏览器可直接支持文档

Response.ContentType = "application/ms-excel"

Me.EnableViewState = False

'定义一个输入流

Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter()

Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter)

Me.Tab1.RenderControl(oHtmlTextWriter)

'this 表示输出本页，你也可以绑定datagrid,gridview或其他支持obj.RenderControl()属性的控件

Response.Write(oStringWriter.ToString())

Response.End()

End Sub

'重载VerifyRenderingInServerForm，否者会出现类型“GridView”的控件“GridView1”必须放在具有 runat=server 的窗体标记内。的错误

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

End Sub