麻烦大家帮我看下!谢谢啦!在线等!

[kitome]

本人是个新人 希望各位高手多多指教.我在导出EXCEL时能够保存 但保存下的EXCEL表单没有显示 表单里只显示DIV /DIV
下面是我的代码 希望各位高手帮我看看有什么问题?谢谢啦!!
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
conn.Open()
Dim commandString As String = "Select id,name,number From chanpin"
Dim dataAdapter As SqlDataAdapter = New SqlDataAdapter(commandString, conn)


dataAdapter.Fill(ds)
Dim dataTable1 As DataTable = ds.Tables("chanpin")
Response.Clear()
Response.BufferOutput = True
Response.Charset = "GB2312"
Response.AppendHeader("Content-Disposition", "attachment;filename=FileName.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.ContentType = "application/ms-excel"
EnableViewState = False
Dim cultureInfo As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("ZH-CN", True)
Dim stringWriter As System.IO.StringWriter = New System.IO.StringWriter(cultureInfo)
Dim textWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(stringWriter)
Dim gd As GridView = New GridView()
gd.DataSource = dataTable1
gd.DataBind()
gd.RenderControl(textWriter)
Response.Write(stringWriter.ToString())
Response.End()

End Sub

[kitome]

麻烦大家了帮我看下了!

[hhxxcj]

你看一下这个对你有帮助吗：http://blog.csdn.net/hhxxcj/archive/2009/01/14/3772552.aspx

[kitome]

这篇之前我就看过了 因为我是用Data table导出EXCEL的 因为我的Gridview第一列有编辑按钮,在导出EXCEL的时候也会一起导出,所以麻烦还有其他办法嘛?我现在这段代码能运行 就是导出的EXCEL没内容 只有DIV /DIV

[kitome]

我吧之前整个代码贴出来吧 方便大家帮我看下
Imports System
Imports System.Data
Imports System.Data.SqlClient


Partial Class _Default
Inherits System.Web.UI.Page
Shared strconn As String = "data source=192.168.1.253\SQL2005;initial catalog=product;User ID=test;password=searching"
Dim conn As New SqlConnection(strconn)
Dim ds As DataSet = New DataSet()
Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
conn.Open()
Dim commandString As String = "Select id From chanpin"
Dim dataAdapter As SqlDataAdapter = New SqlDataAdapter(commandString, conn)


dataAdapter.Fill(ds)
Dim dataTable1 As DataTable = ds.Tables("chanpin")
Dim gd As GridView = New GridView()
gd.DataSource = dataTable1
gd.DataBind()

Response.Clear()
Response.BufferOutput = True
Response.Charset = "GB2312"
Response.AppendHeader("Content-Disposition", "attachment;filename=123.xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.ContentType = "application/ms-excel"
EnableViewState = False
Dim cultureInfo As System.Globalization.CultureInfo = New System.Globalization.CultureInfo("ZH-CN", True)
Dim stringWriter As System.IO.StringWriter = New System.IO.StringWriter(cultureInfo)
Dim textWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(stringWriter)
gd.RenderControl(textWriter)
Response.Write(stringWriter.ToString())
Response.End()

End Sub

[kitome]

自己再顶一下

[liuping234232783]

Response.Clear();
Response.Charset = "gb2312";
Response.AddHeader("content-disposition","attachment;filename=kaoqinnianbao.xls");
Response.ContentEncoding =System.Text.Encoding.UTF7;
Response.ContentType = "application/vnd.ms-excel";
System.IO.StringWriter strw = new System.IO.StringWriter();
System.Web.UI.HtmlTextWriter htmw = new HtmlTextWriter(strw);
GridView1.AllowPaging = false;
bin();
GridView1.DataBind();
GridView1.RenderControl(htmw);
Response.Write(strw.ToString());
Response.End();
GridView1.AllowPaging = true;