Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment;filename= sample.xls")
Dim sbldTable As New StringBuilder
sbldTable.Append("
").Append("Sample Data") sbldTable.Append(" | ")
Response.Write(sbldTable.ToString)
sbldTable = Nothing
Response.End()
No comments:
Post a Comment