ASP.NET

<asp:GridView ID="GridView1" DataKeyNames="L_ID" runat="server" AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False" DataSourceID="SqlDataSource1" Style="position: relative" Width="1000px">

    <Columns>
        <asp:CommandField CancelText="cancel" DeleteText="del" EditText="edit" InsertText="insert"
            NewText="new" SelectText="select" ShowEditButton="True" UpdateText="update" ShowDeleteButton="True" />

        <asp:BoundField DataField="NAME" HeaderText="NAME" SortExpression="NAME" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

        <asp:BoundField DataField="CONFIGDESCRIPTION" HeaderText="CONFIGDESCRIPTION" SortExpression="CONFIGDESCRIPTION" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

        <asp:BoundField DataField="EMAIL" HeaderText="EMAIL" SortExpression="EMAIL" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

        <asp:BoundField DataField="TEST_INTERN" HeaderText="TEST_INTERN" SortExpression="TEST_INTERN" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

        <asp:BoundField DataField="TEST_PILOT" HeaderText="TEST_PILOT" SortExpression="TEST_PILOT" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

        <asp:BoundField DataField="PRODUKTIV" HeaderText="PRODUKTIV" SortExpression="PRODUKTIV" >
            <ItemStyle Width="500px" />
        </asp:BoundField>

    </Columns>

</asp:GridView>

<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ConnectionString %>" ProviderName="<%$ ConnectionStrings:ConnectionString.ProviderName %>"
SelectCommand='SELECT L_ID, PRODUKT_NR, PK_CONFIG_NR, TEST_INTERN, TEST_PILOT, PRODUKTIV, ASP_NR, DVM_PRODUKT.NAME, EMAIL, CONFIGDESCRIPTION FROM DVM_LIEFERUNG, DVM_PRODUKT, AUDAUPDATECONFIGURATIONS, DVM_ASP WHERE DVM_PRODUKT.PRODUKT_ID=DVM_LIEFERUNG.PRODUKT_NR AND AUDAUPDATECONFIGURATIONS.PK_CONFIGID = DVM_LIEFERUNG.PK_CONFIG_NR AND DVM_ASP.ASP_ID = DVM_LIEFERUNG.ASP_NR'
DeleteCommand='DELETE FROM DVM_LIEFERUNG WHERE (L_ID = :L_ID)'
UpdateCommand='UPDATE DVM_LIEFERUNG SET L_ID = :L_ID, PRODUKT_NR = :PRODUKT_NR, PK_CONFIG_NR = :PK_CONFIG_NR, TEST_INTERN = :TEST_INTERN, TEST_PILOT = :TEST_PILOT, PRODUKTIV = :PRODUKTIV, ASP_NR= :ASP_NR WHERE (L_ID = :L_ID)'>

<DeleteParameters>
<asp:ControlParameter ControlID="GridView1" Name="L_ID" PropertyName="SelectedValue" Type="Decimal" />
</DeleteParameters>

<UpdateParameters>
<asp:ControlParameter ControlID="GridView1" Name="L_ID" PropertyName="SelectedValue" Type="Decimal" />
<asp:ControlParameter ControlID="GridView1" Name="PRODUKT_NR" PropertyName="SelectedValue" Type="Decimal" />
<asp:ControlParameter ControlID="GridView1" Name="PK_CONFIG_NR" PropertyName="SelectedValue" Type="Decimal" />
<asp:ControlParameter ControlID="GridView1" Name="TEST_INTERN" PropertyName="SelectedValue" Type="String" />
<asp:ControlParameter ControlID="GridView1" Name="TEST_PILOT" PropertyName="SelectedValue" Type="String" />
<asp:ControlParameter ControlID="GridView1" Name="PRODUKTIV" PropertyName="SelectedValue" Type="String" />
<asp:ControlParameter ControlID="GridView1" Name="ASP_NR" PropertyName="SelectedValue" Type="Decimal" />
</UpdateParameters>

</asp:SqlDataSource>

Imports System.Data
Imports System.Configuration
Imports System.IO
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls


Public Class GridViewExportUtil
    Public Shared Sub Export(ByVal fileName As String, ByVal gv As GridView, ByVal removeColumns As Integer())
        HttpContext.Current.Response.Clear()
        HttpContext.Current.Response.AddHeader("content-disposition", String.Format("attachment; filename={0}", fileName))
        HttpContext.Current.Response.ContentType = "application/ms-excel"

'Gridview column delete code should come here


        Using sw As New StringWriter()
            Using htw As New HtmlTextWriter(sw)
                '  Create a form to contain the grid
                Dim table As New Table()

                '  add the header row to the table
                If gv.HeaderRow IsNot Nothing Then
                    GridViewExportUtil.PrepareControlForExport(gv.HeaderRow)
                    table.Rows.Add(gv.HeaderRow)
                End If

                '  add each of the data rows to the table
                For Each row As GridViewRow In gv.Rows
                    GridViewExportUtil.PrepareControlForExport(row)
                    table.Rows.Add(row)
                Next

                '  add the footer row to the table
                If gv.FooterRow IsNot Nothing Then
                    GridViewExportUtil.PrepareControlForExport(gv.FooterRow)
                    table.Rows.Add(gv.FooterRow)
                End If

                '  render the table into the htmlwriter
                table.RenderControl(htw)

                '  render the htmlwriter into the response
                HttpContext.Current.Response.Write(sw.ToString())
                HttpContext.Current.Response.[End]()
            End Using
        End Using
    End Sub