【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