1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public Function gridToExcel(ByVal myODS As ObjectDataSource, ByVal mygrid As GridView, ByVal myFilter As String, ByVal name As String) As Integer
Response.Clear()
Response.AddHeader("content-disposition", "attachment; filename=" + name + ".xls")
Response.Charset = ""
Response.ContentType = "application/vnd.ms-excel"
Dim sw As System.IO.StringWriter = New System.IO.StringWriter()
Dim htmw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(sw)
sw.GetStringBuilder().Append("<H2>" + name + _
"</H2><br>" + _
Date.Now.ToShortDateString + "<br><br>")
With mygrid
.Visible = True
myODS.FilterExpression = myFilter
.DataBind()
.RenderControl(htmw)
.Visible = False
End With
Response.Write(sw.ToString)
Response.End()
End Function |
Partager