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