【Vegas原创】VB.NET版Excel导出（GridView、DataGrid通吃）

在click事件中加入：

Protected Sub imgExcel_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgExcel.Click

            Response.Clear()

            Response.Buffer = True

            Response.Charset = "GB2312"

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

            '如果设置为 GetEncoding("GB2312");导出的文件将会出现乱码！！！


            Response.ContentEncoding = System.Text.Encoding.UTF7

            Response.ContentType = "application/ms-excel" '/设置输出文件类型为excel文件。 


            Dim oStringWriter As New System.IO.StringWriter()

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

            '  turn off paging 
            grdeap.AllowPaging = False

            grdeap.Columns(0).Visible = False

            '注意：不是grdeap.databind()
            mydatabind()

            grdeap.RenderControl(oHtmlTextWriter)

            Response.Output.Write(oStringWriter.ToString())

            Response.Flush()

            Response.End()


        End Sub