| Author: Mohan Kumar 10 Oct 2006 | Member Level: Diamond | Rating: Points: 2 |
hi,
try this,
Public Sub exp(ByVal FileName As String, ByVal dg As System.Web.UI.WebControls.DataGrid) Response.Clear() Response.Buffer = True Response.ContentType = "application/vnd.ms-excel" Response.AddHeader("content-disposition", "attachment;filename=" + FileName) Response.Charset = "" Me.EnableViewState = False Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter) dg.RenderControl(oHtmlTextWriter) Response.Write(oStringWriter.ToString) Response.End() End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click exp("mohan.xls", DataGrid1) End Sub
-Mohan kumar
|