Export data in Excel from Gridview in VB.NET

Export code 
  1. Protected Sub ExportToExcel(sender As Object, e As EventArgs)  
  2.     Response.Clear()  
  3.     Response.Buffer = True  
  4.     Response.AddHeader("content-disposition", "attachment;filename=GridViewExport.xls")  
  5.     Response.Charset = ""  
  6.     Response.ContentType = "application/vnd.ms-excel"  
  7.     Using sw As New StringWriter()  
  8.         Dim hw As New HtmlTextWriter(sw)  
  9.    
  10.         'To Export all pages  
  11.         GridView1.AllowPaging = False  
  12.         Me.BindGrid()  
  13.    
  14.         GridView1.HeaderRow.BackColor = Color.White  
  15.         For Each cell As TableCell In GridView1.HeaderRow.Cells  
  16.             cell.BackColor = GridView1.HeaderStyle.BackColor  
  17.         Next  
  18.         For Each row As GridViewRow In GridView1.Rows  
  19.             row.BackColor = Color.White  
  20.             For Each cell As TableCell In row.Cells  
  21.                 If row.RowIndex Mod 2 = 0 Then  
  22.                     cell.BackColor = GridView1.AlternatingRowStyle.BackColor  
  23.                 Else  
  24.                     cell.BackColor = GridView1.RowStyle.BackColor  
  25.                 End If  
  26.                 cell.CssClass = "textmode"  
  27.             Next  
  28.         Next  
  29.    
  30.         GridView1.RenderControl(hw)  
  31.         'style to format numbers to string  
  32.         Dim style As String = "<style> .textmode { } </style>"  
  33.         Response.Write(style)  
  34.         Response.Output.Write(sw.ToString())  
  35.         Response.Flush()  
  36.         Response.[End]()  
  37.     End Using  
  38. End Sub  
  39.    
  40. Public Overrides Sub VerifyRenderingInServerForm(control As Control)  
  41.     ' Verifies that the control is rendered  
  42. End Sub