Gridview数据导到EXCEL

Gridview数据导到EXCEL

Gridview数据导到EXCEL Protected Sub Btn_input_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_input.Click

Response.Clear()

Response.AddHeader('content-disposition', 'attachment;filename=FileName.xls')

Response.Charset = 'gb2312'

Response.ContentType = 'application/vnd.xls'

Dim stringWrite As IO.StringWriter = New System.IO.StringWriter()

Dim htmlWrite As Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)

GridView1.AllowPaging = False

GridView1.DataSource = objdb.myds('select * from total')

GridView1.DataBind()

GridView1.RenderControl(htmlWrite)

Response.Write(stringWrite.ToString())

Response.End()

End Sub

Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)

End Sub