asp.net控件导出Excel

VB.net

        ' 定义文档类型、字符编码
       Response.Clear()
        Response.Buffer  =   True
        Response.Charset  =   " GB2312 "
         ' 下面这行很重要， attachment 参数表示作为附件下载，您可以改成 online在线打开
　　 ' filename=Schedule.xls指定输出文件的名称，注意其扩展名和指定文件类型相符，可以为：.doc 　　 .xls 　　 .txt 　　.htm
        Response.AppendHeader( " Content-Disposition " ,  " attachment;filename=Schedule.xls " )
        Response.ContentEncoding  =  System.Text.Encoding.UTF7
        Response.ContentType  =   " application/ms-excel "
       ' 定义一个输入流
         Dim  oStringWriter  As  System.IO.StringWriter  =   New  System.IO.StringWriter
         Dim  oHtmlTextWriter  As  System.Web.UI.HtmlTextWriter  =   New  System.Web.UI.HtmlTextWriter(oStringWriter)
        ' Me.tabtime表示输出本页，你也可以绑定Gridview,,table或其他支持obj.RenderControl()属性的控件 
         Me .tabtime.RenderControl(oHtmlTextWriter)
        Response.Output.Write(oStringWriter.ToString)
        Response.Flush()
        Response.End()