Excel表格输出

来源：互联网发布：finalspeed mac 编辑：程序博客网时间：2024/04/29 04:05

         Response.Clear()
        Response.Write("<HTML>")
        Response.Write("<HEAD>")
        Response.Write("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
        Response.Write("<meta name='ProgId' content='Excel.Sheet'>")
        Response.Write("<meta name='Generator' content='Microsoft Excel 11'>")
        Response.Write("<style>.xl24 { mso-style-parent: style0; mso-number-format: '@' }")
        Response.Write("</style>")
        Response.Write("</HEAD>")
        Response.Write("<body>")

        Response.Buffer = True
        Response.Charset = "GB2312" '设置了类型为中文防止乱码的出现
        Response.AppendHeader("Content-Disposition", "attachment;filename=OutExcel.xls") '定义输出文件和文件名
        Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312") ';//设置输出流为简体中文
        Response.ContentType = "application/ms-excel" ';//设置输出文件类型为excel文件。
        Page.EnableViewState = False
        Dim myCItrad As New System.Globalization.CultureInfo("ZH-CN", True)
        Dim oStringWriter As New System.IO.StringWriter(myCItrad)
        Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter)
        DataGrid1.RenderControl(oHtmlTextWriter) '//设置输出源
        Response.Write(oStringWriter.ToString())

        Response.Write("</HEAD>")
        Response.Write("</HTML>")
        Response.End()