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