Convert DataGrid into Excel
-
Hi Friends, I am trying to Convert DataGrid into Excel, My Code ------------------------------- Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click 'export to excel Response.Clear() Response.Buffer = True Response.ContentType = "application/octet-stream" Response.AddHeader("content-disposition", "attachment;filename=FileName.xls") 'Response.ContentType = "application/vnd.ms-excel" Response.Charset = "" Me.EnableViewState = False Dim oStringWriter As New System.IO.StringWriter Dim oHtmlTextWriter As New System.Web.UI.HtmlTextWriter(oStringWriter) grd1.AllowPaging = False Me.ClearControls(grd1) grd1.RenderControl(oHtmlTextWriter)Response.Write(oStringWriter.ToString())Response.End() End Sub Private Sub ClearControls(ByVal control As Control) Dim i As Integer For i = control.Controls.Count - 1 To 0 Step -1 ClearControls(control.Controls(i)) Next i If Not TypeOf control Is TableCell Then If Not (control.GetType().GetProperty("SelectedItem") Is Nothing) Then Dim literal As New LiteralControl control.Parent.Controls.Add(literal) Try literal.Text = CStr(control.GetType().GetProperty("SelectedItem").GetValue(control, Nothing)) Catch End Try control.Parent.Controls.Remove(control) Else If Not (control.GetType().GetProperty("Text") Is Nothing) Then Dim literal As New LiteralControl control.Parent.Controls.Add(literal) literal.Text = CStr(control.GetType().GetProperty("Text").GetValue(control, Nothing)) control.Parent.Controls.Remove(control) End If End If End If Return End Sub 'ClearControls I am getting output of Excel. But not in correct format. The Excel sheet contains data of only the First page. It shows the Paging Number down after the first 10 records. And yes i have a column of data in Greek language which is not visible clearly. I am using MS Office 2007. Any help or suggestions would be highly appreciated. Thanks
Cheers Menon