vb-把DataTable里的内容导出到EXCEL

Private   Sub toExcel()Sub   toExcel(ByVal   tb   As   DataTable) 
                Dim   dgrid   As   System.Web.UI.WebControls.DataGrid   =   Nothing 
                Dim   context   As   System.Web.HttpContext   =   System.Web.HttpContext.Current 
                Dim   strOur   As   System.IO.StringWriter   =   Nothing 
                Dim   htmlWriter   As   System.Web.UI.HtmlTextWriter   =   Nothing 
                If   Not   IsNothing(tb)   Then 
                        context.Response.ContentType   =   "application/vnd.ms-excel " 
                        context.Response.ContentEncoding   =   System.Text.Encoding.UTF8 
                        context.Response.Charset   =   " " 

                        strOur   =   New   IO.StringWriter 
                        htmlWriter   =   New   System.Web.UI.HtmlTextWriter(strOur) 
                        dgrid   =   New   DataGrid 
                        dgrid.DataSource   =   tb.DefaultView 
                        dgrid.AllowPaging   =   False 
                        dgrid.DataBind() 

                        dgrid.RenderControl(htmlWriter) 
                        context.Response.Write(strOur.ToString) 
                        context.Response.End() 
                End   If 
        End   Sub ()Sub