how to export gridview to excel in vb.net

Question

how to export gridview to excel in vb.net ? help - step by step

Satyapriya Nayak · Answer

Hi Sraj, Normal 0 false false false EN-US X-NONE X-NONE MicrosoftInternetExplorer4 /* Style Definitions */ table.MsoNormalTable{mso-style-name:"Table Normal";mso-tstyle-rowband-size:0;mso-tstyle-colband-size:0;mso-style-noshow:yes;mso-style-priority:99;mso-style-qformat:yes;mso-style-parent:"";mso-padding-alt:0in 5.4pt 0in 5.4pt;mso-para-margin:0in;mso-para-margin-bottom:.0001pt;mso-pagination:widow-orphan;font-size:11.0pt;font-family:"Calibri","sans-serif";mso-ascii-font-family:Calibri;mso-ascii-theme-font:minor-latin;mso-fareast-font-family:"Times New Roman";mso-fareast-theme-font:minor-fareast;mso-hansi-font-family:Calibri;mso-hansi-theme-font:minor-latin;mso-bidi-font-family:"Times New Roman";mso-bidi-theme-font:minor-bidi;} Default.aspx code @ Page Language ="VB" AutoEventWireup ="false" CodeFile ="Default.aspx.vb" Inherits ="_Default" %> DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> html xmlns ="http://www.w3.org/1999/xhtml"> head runat ="server"> title > Untitled Page title > head > body > form id ="form1" runat ="server"> div > div > asp : GridView ID ="g1" runat ="server"> asp : GridView > br /> br /> asp : Label ID ="Label1" runat ="server" Text ="Export data to Excel" BackColor ="Yellow" Font-Bold ="True" ForeColor ="#FF3300"> asp : Label > br /> asp : ImageButton ID ="ImageButton1" runat ="server" ImageUrl = "~/images/Excel2.JPG" /> form > body > html > Default.aspx.vb code Imports System.Data Imports System.Data.SqlClient Imports System.IO Partial Class _Default Inherits System.Web.UI.Page Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings.Item( "ConnectionString" ).ToString() Dim con As New SqlConnection(strConnString) Dim str As String Dim com As SqlCommand Dim sqlda As SqlDataAdapter Dim ds As DataSet Protected Sub Page_Load( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Load bindgrid() g1.Visible = False End Sub Sub bindgrid() con.Open() str = "select * from SampleCustomer" com = New SqlCommand(str, con) sqlda = New SqlDataAdapter(com) ds = New DataSet sqlda.Fill(ds, "SampleCustomer" ) g1.DataSource = ds g1.DataMember = "SampleCustomer" g1.DataBind() con.Close() End Sub Private Sub ExportToExcel( ByVal strFileName As String , ByVal dg As GridView) Response.Clear() Response.Buffer = True 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) g1.RenderControl(oHtmlTextWriter) Response.Write(oStringWriter.ToString()) Response.[End]() End Sub Protected Sub ImageButton1_Click( ByVal sender As Object , ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click g1.Visible = True ExportToExcel( "Report.xls" , g1) End Sub Public Overloads Overrides Sub VerifyRenderingInServerForm( ByVal control As Control) End Sub End Class Thanks If this post helps you mark it as answer