Skip to main content
Removido texto em Inglês, Titulo editado
Fonte Link

Conteúdo Como exportar conteúdo gerado pelo VB.NET exporta para excelExcel

I have a page which loads a table, wanted to export to excel how can I do?

euEu tenho uma paginapágina que carrega uma tabela  , e queria exportaexportá-la para o Excel, como posso fazer isso?

Conteúdo gerado VB.NET exporta para excel

I have a page which loads a table, wanted to export to excel how can I do?

eu tenho uma pagina que carrega uma tabela  , queria exporta para o Excel como posso fazer ?

Como exportar conteúdo gerado pelo VB.NET para Excel

Eu tenho uma página que carrega uma tabela, e queria exportá-la para o Excel, como posso fazer isso?

adicionou 1248 caracteres ao conteúdo
Fonte Link
Ricardo
  • 15mil
  • 18
  • 83
  • 137

Public Class RelRegepaCap Inherits IcatuHartford.Web.UI.Pagina

Protected Sub Page_Load(ByVal sender As Object, ByValPublic eClass AsRelRegepaCap
 System.EventArgs) Handles Me.Load
    If NotInherits PageIcatuHartford.IsPostBack ThenWeb.UI.Pagina
     
    PopularControles()
    End If
End   Protected Sub Pag

Privatee_Load(ByVal Subsender PopularControles(As Object, ByVal e As System.EventArgs) Handles Me.Load
    txtCPF.Attributes    If Not Page.Add("onkeypress",IsPostBack "MascInteiro();")Then
    txtTitulo.Attributes.Add("onkeypress", "MascInteiro       PopularControles();")
        End If
    End Sub

    DimPrivate oRelFacadeSub AsPopularControles()
 New RelRegepaCapFacade      txtCPF.Attributes.Add("onkeypress", "MascInteiro();")
    Dim Dt As New DataTabletxtTitulo.Attributes.Add("onkeypress", "MascInteiro();")

    With Me.cboProdutos
        .DataSource =Dim oRelFacade.GetProduto(Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString()))
      As New .DataBind()RelRegepaCapFacade
    End With
End Sub
Public Sub FiltraProduto(ByVal sender As Object, ByValDim eDt As System.EventArgs) Handles CheckBoxPU.CheckedChanged
  New DataTable

        With Me.cboProdutos
            .DataSource = oRelFacade.GetProduto(Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString()))
            .DataBind()
        End With
    End Sub
    Public Sub FiltraProduto(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxPU.CheckedChanged
       

Protected Sub cmdContinuar_Click(sender As Object, e As EventArgs) Handles cmdContinuar.Click
    Dim RelRegepaCapFac As New RelRegepaCapFacade
    Dim dt As DataTable
    Dim cod_veiculo As String
    Dim cpfcnjp As String
    Dim titulo As String
    Dim useruniqueID As Guid
    Dim CodProduto As String
    Dim TpProduto AsEnd StringSub

    Protected Sub cmdContinuar_Click(sender As Object, e As EventArgs) Handles cmdContinuar.Click
        Dim RelRegepaCapFac As New RelRegepaCapFacade
        Dim dt As DataTable
        Dim cod_veiculo As String
        Dim cpfcnjp As String
        Dim titulo As String
        Dim useruniqueID As Guid
        Dim CodProduto As String
        Dim TpProduto As String

    useruniqueID = New Guid(Me.Usuario.Identity.Id)
    cod_veiculo = Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString())
    cpfcnjp = txtCPF.Text
    titulo = txtTitulo.Text
    CodProduto = cboProdutos.SelectedValue

    If CheckBoxPM.Checked Then
  useruniqueID = New Guid(Me.Usuario.Identity.Id)
   TpProduto = "M"
   cod_veiculo ElseIf= CheckBoxPUMe.Checked ThenCacheApp.Item(VariaveisContexto.Veiculo.ToString())
        TpProdutocpfcnjp = "U"txtCPF.Text
    Else
    titulo = txtTitulo.Text
   TpProduto = String.Empty
   CodProduto End= IfcboProdutos.SelectedValue

    Try    If CheckBoxPM.Checked Then
        With Me   TpProduto = "M"
        ElseIf CheckBoxPU.rptRegepaChecked Then
            .DataSourceTpProduto = RelRegepaCapFac.GetRelRegepa(cod_veiculo,"U"
 cpfcnjp, titulo, useruniqueID, CodProduto, TpProduto)   Else
            TpProduto = String.DataBind()Empty
        End WithIf

    Finally    Try
        RelRegepaCapFac    With Me.rptRegepa
                .DataSource = NothingRelRegepaCapFac.GetRelRegepa(cod_veiculo, cpfcnjp, titulo, useruniqueID, CodProduto, TpProduto)
    End Try           .DataBind()
            End SubWith

Protected Sub cmdExportarExcel_Click(sender As Object, e As EventArgs) HandlesFinally
 cmdExportarExcel.Click           RelRegepaCapFac = Nothing
    GeraRelatorioExcel()    End Try
    End Sub

End Sub
Private Sub GeraRelatorioExcel()
 Protected Sub cmdExportarExcel_Click(sender As DimObject, strScripte As String
EventArgs) Handles cmdExportarExcel.Click
  Dim params As String() = New StringGeraRelatorioExcel(13) {}

    params(0)End =Sub
 ConfigurationSettings.AppSettings   Private Sub GeraRelatorioExcel("IHInternetService_Relatorios") 
 & "RelRegepaCapPopUpExcel.aspx"      Dim strScript As String
        Dim params As String(3) = Me.Usuario.Identity.VeiculoNew String(13) {}

    strScript = String.Format  params("<script>window0) = ConfigurationSettings.openAppSettings(CodVeiculo={3}""IHInternetService_Relatorios") & _"RelRegepaCapPopUpExcel.aspx"
            "','_blank','width=780,height=460');</script>", params(3) = Me.Usuario.Identity.Veiculo

    Me    strScript = String.RegisterClientScriptBlockFormat("POPUP""<script>window.open(CodVeiculo={3}" & _
                "','_blank','width=780,height=460');</script>", strScriptparams)

End Sub
        Me.RegisterClientScriptBlock("POPUP", strScript)

    End Sub


End Class




    <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="RelRegepaCap.aspx.vb"
    Inherits="IHInternetService_Relatorios.RelRegepaCap" %>

<!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></title>
    <script>
        function Esconde() {
            document.all("cboStatus").style.display = "none";
        }

       
    </script>
</head>
<body>
    <form id="Form1" method="post" runat="server" onkeypress="if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('cmdContinuar').click();return false;}} else {return true};">
    <div id="dvValidaRelClientes" class="Erro">
    </div>
    <table class="caixa_home" id="Table4" cellspacing="0" cellpadding="3" width="640px"
        border="0">
        <tr>
            <td>
                <table width="100%" cellspacing="0" cellpadding="4" border="0" class="linha_caixa_home">
                    <tbody>
                        <tr class="fundo_titulo_tabelas_internas">
                            <td>
                                Buscar por:
                            </td>
                        </tr>
                        <tr class="fundo_caixa_home">
                            <td>
                                <table width="100%" cellspacing="1" cellpadding="3" border="0" class="TiraBorda">
                                    <tbody>
                                        <tr class="fundo_caixa_home">
                                            <td class="Texto2">
                                                Tipo de Produtos:
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:CheckBox ID="CheckBoxPM" runat="server" Text="M" OnCheckedChanged="FiltraProduto" />
                                                <asp:CheckBox ID="CheckBoxPU" runat="server" Text="U" OnCheckedChanged="FiltraProduto" />
                                            </td>
                                        </tr>
                                        <tr class="fundo_caixa_home">
                                            <td class="Texto2">
                                                Produtos
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:ListBox ID="cboProdutos" runat="server" CssClass="InputP" DataValueField="PRODUTO"
                                                    DataTextField="NOMNEGOCIACAO" Height="54px" SelectionMode="Single" Width="349px">
                                                </asp:ListBox>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td class="Texto2">
                                                CPF/CNPJ do cliente
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:TextBox ID="txtCPF" CssClass="InputP" Width="140px" runat="server" MaxLength="14"></asp:TextBox>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td class="Texto2">
                                                Título
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:TextBox ID="txtTitulo" CssClass="InputP" Width="140px" runat="server" MaxLength="11"></asp:TextBox>
                                            </td>
                                        </tr>
                                    </tbody>
                                </table>
                                <table width="100%" align="center">
                                    <tr>
                                        <td width="25%">
                                        </td>
                                        <td align="center">
                                            <asp:Button ID="cmdContinuar" CssClass="botao_formulario" runat="server" Text="Consultar">
                                            </asp:Button>
                                        </td>
                                        <td align="center">
                                        </td>
                                        <td width="25%">
                                        </td>
                                    </tr>
                                </table>
                            </td>
                        </tr>
                    </tbody>
                </table>
            </td>
        </tr>
        <tr>
            <td>
                <asp:Panel ID="pnlRelatorio" runat="server" Visible="<%#rptRegepa.Items.Count>0%>">
                    <asp:Repeater ID="rptRegepa" runat="server">
                        <HeaderTemplate>
                            <table id="resultado" cellspacing="0" cellpadding="4" width="100%" border="0">
                                <tr>
                                    <td>
                                        <table class="linha_caixa_home" cellspacing="0" cellpadding="4" width="100%" border="0">
                                            <tr class="fundo_cinza Texto2">
                                                <td>
                                                     Nº do Título
                                                </td>
                                                <td width="20%">
                                                    Série
                                                </td>
                                                <td>
                                                    Proposta
                                                </td>
                                                <td>
                                                   Nome Cliente
                                                </td>
                                                <td>
                                                    Cpf/Cnpj Cliente
                                                </td>
                                                <td>
                                                    Conta Corrente
                                                </td>
                                                <td>
                                                    Cód. Produto
                                                </td>
                                                <td>
                                                    Nome Produto
                                                </td>
                                                <td>
                                                    Status
                                                </td>
                                                <td>
                                                    Vlr. Mensalidade
                                                </td>
                                                <td>
                                                    Última Parcela Paga
                                                </td>
                                                <td>
                                                    Data Último Pagamento
                                                </td>
                                                <td>
                                                    Vlr. Reserva
                                                </td>
                                            </tr>
                                            <tr class="fundo_caixa_home">
                                                <td colspan="13" style="height: 3px;">
                                                </td>
                                            </tr>
                        </HeaderTemplate>
                        <ItemTemplate>
                            <tr id="trClienteSorte" runat="server">
                                <td class="Texto_1">
                                    <%#Container.DataItem("TITULO")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("SERIE")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("PROPOSTA")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("NOME_CLIENTE")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("CPF_CNPJ_CLIENTE")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("CONTA_CORRENTE")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("PRODUTO")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("NOMNEGOCIACAO")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#Container.DataItem("STATUS_TITULO")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#Databinder.Eval(Container.DataItem,"VALOR_MENSALIDADE","{0:N2}")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("ULTIMA_PARCELA_PAGA")%>
                                </td>
                                <td class="Texto_1">
                                   <%#Databinder.Eval(Container.DataItem,"DT_ULTIMO_PAGAMENTO","{0:dd/MM/yyyy}")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#DataBinder.Eval(Container.DataItem, "VALOR_RESERVA_CLIENTE", "{0:N2}")%>
                                </td>

                                
                            </tr>
                        </ItemTemplate>
                        <FooterTemplate>
                            </TABLE> </TD> </TR> </TABLE>
                        </FooterTemplate>
                    </asp:Repeater>
                    </br>
                    <table id="exportar" cellspacing="0" cellpadding="0" width="100%" align="center"
                        border="0" runat="server" visible="<%#rptRegepa.Items.Count>0%>">
                        <tr>
                            <td width="30%">
                            </td>
                            <td align="center" width="40%">
                                <asp:Button ID="cmdExportarExcel" CssClass="botao_formulario" runat="server" Text="Exportar Excel">
                                </asp:Button>
                            </td>
                            <td width="30%">
                            </td>
                        </tr>
                    </table>
                </asp:Panel>
            </td>
        </tr>
    </table>
    </form>
</body>
</html>

End Class

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="RelRegepaCap.aspx.vb"
Inherits="IHInternetService_Relatorios.RelRegepaCap" %>
function Esconde(){document.all("cboStatus").style.display = "none";}
</script>
Buscar por:Tipo de Produtos:ProdutosCPF/CNPJ do clienteTítulo0%>">Nº do TítuloSériePropostaNome ClienteCpf/Cnpj ClienteConta CorrenteCód. ProdutoNome ProdutoStatusVlr. MensalidadeÚltima Parcela PagaData Último PagamentoVlr. Reserva
                        </tr>
                    </ItemTemplate>
                    <FooterTemplate>
                        </TABLE> </TD> </TR> </TABLE>
                    </FooterTemplate>
                </asp:Repeater>
                </br>
                <table id="exportar" cellspacing="0" cellpadding="0" width="100%" align="center"
                    border="0" runat="server" visible="<%#rptRegepa.Items.Count>0%>">
                    <tr>
                        <td width="30%">
                        </td>
                        <td align="center" width="40%">
                            <asp:Button ID="cmdExportarExcel" CssClass="botao_formulario" runat="server" Text="Exportar Excel">
                            </asp:Button>
                        </td>
                        <td width="30%">
                        </td>
                    </tr>
                </table>
            </asp:Panel>
        </td>
    </tr>
</table>
</form>

Public Class RelRegepaCap Inherits IcatuHartford.Web.UI.Pagina

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
        PopularControles()
    End If
End Sub

Private Sub PopularControles()
    txtCPF.Attributes.Add("onkeypress", "MascInteiro();")
    txtTitulo.Attributes.Add("onkeypress", "MascInteiro();")

    Dim oRelFacade As New RelRegepaCapFacade
    Dim Dt As New DataTable

    With Me.cboProdutos
        .DataSource = oRelFacade.GetProduto(Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString()))
        .DataBind()
    End With
End Sub
Public Sub FiltraProduto(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxPU.CheckedChanged
   

End Sub

Protected Sub cmdContinuar_Click(sender As Object, e As EventArgs) Handles cmdContinuar.Click
    Dim RelRegepaCapFac As New RelRegepaCapFacade
    Dim dt As DataTable
    Dim cod_veiculo As String
    Dim cpfcnjp As String
    Dim titulo As String
    Dim useruniqueID As Guid
    Dim CodProduto As String
    Dim TpProduto As String


    useruniqueID = New Guid(Me.Usuario.Identity.Id)
    cod_veiculo = Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString())
    cpfcnjp = txtCPF.Text
    titulo = txtTitulo.Text
    CodProduto = cboProdutos.SelectedValue

    If CheckBoxPM.Checked Then
        TpProduto = "M"
    ElseIf CheckBoxPU.Checked Then
        TpProduto = "U"
    Else
        TpProduto = String.Empty
    End If

    Try
        With Me.rptRegepa
            .DataSource = RelRegepaCapFac.GetRelRegepa(cod_veiculo, cpfcnjp, titulo, useruniqueID, CodProduto, TpProduto)
            .DataBind()
        End With

    Finally
        RelRegepaCapFac = Nothing
    End Try
End Sub

Protected Sub cmdExportarExcel_Click(sender As Object, e As EventArgs) Handles cmdExportarExcel.Click
    GeraRelatorioExcel()

End Sub
Private Sub GeraRelatorioExcel()
    Dim strScript As String
    Dim params As String() = New String(13) {}

    params(0) = ConfigurationSettings.AppSettings("IHInternetService_Relatorios") & "RelRegepaCapPopUpExcel.aspx"
    params(3) = Me.Usuario.Identity.Veiculo

    strScript = String.Format("<script>window.open(CodVeiculo={3}" & _
            "','_blank','width=780,height=460');</script>", params)

    Me.RegisterClientScriptBlock("POPUP", strScript)

End Sub

End Class

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="RelRegepaCap.aspx.vb"
Inherits="IHInternetService_Relatorios.RelRegepaCap" %>
function Esconde(){document.all("cboStatus").style.display = "none";}
</script>
Buscar por:Tipo de Produtos:ProdutosCPF/CNPJ do clienteTítulo0%>">Nº do TítuloSériePropostaNome ClienteCpf/Cnpj ClienteConta CorrenteCód. ProdutoNome ProdutoStatusVlr. MensalidadeÚltima Parcela PagaData Último PagamentoVlr. Reserva
                        </tr>
                    </ItemTemplate>
                    <FooterTemplate>
                        </TABLE> </TD> </TR> </TABLE>
                    </FooterTemplate>
                </asp:Repeater>
                </br>
                <table id="exportar" cellspacing="0" cellpadding="0" width="100%" align="center"
                    border="0" runat="server" visible="<%#rptRegepa.Items.Count>0%>">
                    <tr>
                        <td width="30%">
                        </td>
                        <td align="center" width="40%">
                            <asp:Button ID="cmdExportarExcel" CssClass="botao_formulario" runat="server" Text="Exportar Excel">
                            </asp:Button>
                        </td>
                        <td width="30%">
                        </td>
                    </tr>
                </table>
            </asp:Panel>
        </td>
    </tr>
</table>
</form>
    Public Class RelRegepaCap
        Inherits IcatuHartford.Web.UI.Pagina
     
    
        Protected Sub Pag

e_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            PopularControles()
        End If
    End Sub

    Private Sub PopularControles()
        txtCPF.Attributes.Add("onkeypress", "MascInteiro();")
        txtTitulo.Attributes.Add("onkeypress", "MascInteiro();")

        Dim oRelFacade As New RelRegepaCapFacade
        Dim Dt As New DataTable

        With Me.cboProdutos
            .DataSource = oRelFacade.GetProduto(Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString()))
            .DataBind()
        End With
    End Sub
    Public Sub FiltraProduto(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxPU.CheckedChanged
       

    End Sub

    Protected Sub cmdContinuar_Click(sender As Object, e As EventArgs) Handles cmdContinuar.Click
        Dim RelRegepaCapFac As New RelRegepaCapFacade
        Dim dt As DataTable
        Dim cod_veiculo As String
        Dim cpfcnjp As String
        Dim titulo As String
        Dim useruniqueID As Guid
        Dim CodProduto As String
        Dim TpProduto As String


        useruniqueID = New Guid(Me.Usuario.Identity.Id)
        cod_veiculo = Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString())
        cpfcnjp = txtCPF.Text
        titulo = txtTitulo.Text
        CodProduto = cboProdutos.SelectedValue

        If CheckBoxPM.Checked Then
            TpProduto = "M"
        ElseIf CheckBoxPU.Checked Then
            TpProduto = "U"
        Else
            TpProduto = String.Empty
        End If

        Try
            With Me.rptRegepa
                .DataSource = RelRegepaCapFac.GetRelRegepa(cod_veiculo, cpfcnjp, titulo, useruniqueID, CodProduto, TpProduto)
                .DataBind()
            End With

        Finally
            RelRegepaCapFac = Nothing
        End Try
    End Sub

    Protected Sub cmdExportarExcel_Click(sender As Object, e As EventArgs) Handles cmdExportarExcel.Click
        GeraRelatorioExcel()

    End Sub
    Private Sub GeraRelatorioExcel() 
        Dim strScript As String
        Dim params As String() = New String(13) {}

        params(0) = ConfigurationSettings.AppSettings("IHInternetService_Relatorios") & "RelRegepaCapPopUpExcel.aspx"
        params(3) = Me.Usuario.Identity.Veiculo

        strScript = String.Format("<script>window.open(CodVeiculo={3}" & _
                "','_blank','width=780,height=460');</script>", params)

        Me.RegisterClientScriptBlock("POPUP", strScript)

    End Sub


End Class




    <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="RelRegepaCap.aspx.vb"
    Inherits="IHInternetService_Relatorios.RelRegepaCap" %>

<!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></title>
    <script>
        function Esconde() {
            document.all("cboStatus").style.display = "none";
        }

       
    </script>
</head>
<body>
    <form id="Form1" method="post" runat="server" onkeypress="if(event.which || event.keyCode){if ((event.which == 13) || (event.keyCode == 13)) {document.getElementById('cmdContinuar').click();return false;}} else {return true};">
    <div id="dvValidaRelClientes" class="Erro">
    </div>
    <table class="caixa_home" id="Table4" cellspacing="0" cellpadding="3" width="640px"
        border="0">
        <tr>
            <td>
                <table width="100%" cellspacing="0" cellpadding="4" border="0" class="linha_caixa_home">
                    <tbody>
                        <tr class="fundo_titulo_tabelas_internas">
                            <td>
                                Buscar por:
                            </td>
                        </tr>
                        <tr class="fundo_caixa_home">
                            <td>
                                <table width="100%" cellspacing="1" cellpadding="3" border="0" class="TiraBorda">
                                    <tbody>
                                        <tr class="fundo_caixa_home">
                                            <td class="Texto2">
                                                Tipo de Produtos:
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:CheckBox ID="CheckBoxPM" runat="server" Text="M" OnCheckedChanged="FiltraProduto" />
                                                <asp:CheckBox ID="CheckBoxPU" runat="server" Text="U" OnCheckedChanged="FiltraProduto" />
                                            </td>
                                        </tr>
                                        <tr class="fundo_caixa_home">
                                            <td class="Texto2">
                                                Produtos
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:ListBox ID="cboProdutos" runat="server" CssClass="InputP" DataValueField="PRODUTO"
                                                    DataTextField="NOMNEGOCIACAO" Height="54px" SelectionMode="Single" Width="349px">
                                                </asp:ListBox>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td class="Texto2">
                                                CPF/CNPJ do cliente
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:TextBox ID="txtCPF" CssClass="InputP" Width="140px" runat="server" MaxLength="14"></asp:TextBox>
                                            </td>
                                        </tr>
                                        <tr>
                                            <td class="Texto2">
                                                Título
                                            </td>
                                            <td class="fundo_cinza Texto_1">
                                                <asp:TextBox ID="txtTitulo" CssClass="InputP" Width="140px" runat="server" MaxLength="11"></asp:TextBox>
                                            </td>
                                        </tr>
                                    </tbody>
                                </table>
                                <table width="100%" align="center">
                                    <tr>
                                        <td width="25%">
                                        </td>
                                        <td align="center">
                                            <asp:Button ID="cmdContinuar" CssClass="botao_formulario" runat="server" Text="Consultar">
                                            </asp:Button>
                                        </td>
                                        <td align="center">
                                        </td>
                                        <td width="25%">
                                        </td>
                                    </tr>
                                </table>
                            </td>
                        </tr>
                    </tbody>
                </table>
            </td>
        </tr>
        <tr>
            <td>
                <asp:Panel ID="pnlRelatorio" runat="server" Visible="<%#rptRegepa.Items.Count>0%>">
                    <asp:Repeater ID="rptRegepa" runat="server">
                        <HeaderTemplate>
                            <table id="resultado" cellspacing="0" cellpadding="4" width="100%" border="0">
                                <tr>
                                    <td>
                                        <table class="linha_caixa_home" cellspacing="0" cellpadding="4" width="100%" border="0">
                                            <tr class="fundo_cinza Texto2">
                                                <td>
                                                     Nº do Título
                                                </td>
                                                <td width="20%">
                                                    Série
                                                </td>
                                                <td>
                                                    Proposta
                                                </td>
                                                <td>
                                                   Nome Cliente
                                                </td>
                                                <td>
                                                    Cpf/Cnpj Cliente
                                                </td>
                                                <td>
                                                    Conta Corrente
                                                </td>
                                                <td>
                                                    Cód. Produto
                                                </td>
                                                <td>
                                                    Nome Produto
                                                </td>
                                                <td>
                                                    Status
                                                </td>
                                                <td>
                                                    Vlr. Mensalidade
                                                </td>
                                                <td>
                                                    Última Parcela Paga
                                                </td>
                                                <td>
                                                    Data Último Pagamento
                                                </td>
                                                <td>
                                                    Vlr. Reserva
                                                </td>
                                            </tr>
                                            <tr class="fundo_caixa_home">
                                                <td colspan="13" style="height: 3px;">
                                                </td>
                                            </tr>
                        </HeaderTemplate>
                        <ItemTemplate>
                            <tr id="trClienteSorte" runat="server">
                                <td class="Texto_1">
                                    <%#Container.DataItem("TITULO")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("SERIE")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("PROPOSTA")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("NOME_CLIENTE")%>
                                </td>
                                <td class="Texto_1">
                                     <%#Container.DataItem("CPF_CNPJ_CLIENTE")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("CONTA_CORRENTE")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("PRODUTO")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("NOMNEGOCIACAO")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#Container.DataItem("STATUS_TITULO")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#Databinder.Eval(Container.DataItem,"VALOR_MENSALIDADE","{0:N2}")%>
                                </td>
                                <td class="Texto_1">
                                    <%#Container.DataItem("ULTIMA_PARCELA_PAGA")%>
                                </td>
                                <td class="Texto_1">
                                   <%#Databinder.Eval(Container.DataItem,"DT_ULTIMO_PAGAMENTO","{0:dd/MM/yyyy}")%>
                                </td>
                                 <td class="Texto_1">
                                    <%#DataBinder.Eval(Container.DataItem, "VALOR_RESERVA_CLIENTE", "{0:N2}")%>
                                </td>

                                
                            </tr>
                        </ItemTemplate>
                        <FooterTemplate>
                            </TABLE> </TD> </TR> </TABLE>
                        </FooterTemplate>
                    </asp:Repeater>
                    </br>
                    <table id="exportar" cellspacing="0" cellpadding="0" width="100%" align="center"
                        border="0" runat="server" visible="<%#rptRegepa.Items.Count>0%>">
                        <tr>
                            <td width="30%">
                            </td>
                            <td align="center" width="40%">
                                <asp:Button ID="cmdExportarExcel" CssClass="botao_formulario" runat="server" Text="Exportar Excel">
                                </asp:Button>
                            </td>
                            <td width="30%">
                            </td>
                        </tr>
                    </table>
                </asp:Panel>
            </td>
        </tr>
    </table>
    </form>
</body>
</html>
Fonte Link

Conteúdo gerado VB.NET exporta para excel

I have a page which loads a table, wanted to export to excel how can I do?

eu tenho uma pagina que carrega uma tabela , queria exporta para o Excel como posso fazer ?

Public Class RelRegepaCap Inherits IcatuHartford.Web.UI.Pagina

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Page.IsPostBack Then
        PopularControles()
    End If
End Sub

Private Sub PopularControles()
    txtCPF.Attributes.Add("onkeypress", "MascInteiro();")
    txtTitulo.Attributes.Add("onkeypress", "MascInteiro();")

    Dim oRelFacade As New RelRegepaCapFacade
    Dim Dt As New DataTable

    With Me.cboProdutos
        .DataSource = oRelFacade.GetProduto(Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString()))
        .DataBind()
    End With
End Sub
Public Sub FiltraProduto(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBoxPU.CheckedChanged
   

End Sub

Protected Sub cmdContinuar_Click(sender As Object, e As EventArgs) Handles cmdContinuar.Click
    Dim RelRegepaCapFac As New RelRegepaCapFacade
    Dim dt As DataTable
    Dim cod_veiculo As String
    Dim cpfcnjp As String
    Dim titulo As String
    Dim useruniqueID As Guid
    Dim CodProduto As String
    Dim TpProduto As String


    useruniqueID = New Guid(Me.Usuario.Identity.Id)
    cod_veiculo = Me.CacheApp.Item(VariaveisContexto.Veiculo.ToString())
    cpfcnjp = txtCPF.Text
    titulo = txtTitulo.Text
    CodProduto = cboProdutos.SelectedValue

    If CheckBoxPM.Checked Then
        TpProduto = "M"
    ElseIf CheckBoxPU.Checked Then
        TpProduto = "U"
    Else
        TpProduto = String.Empty
    End If

    Try
        With Me.rptRegepa
            .DataSource = RelRegepaCapFac.GetRelRegepa(cod_veiculo, cpfcnjp, titulo, useruniqueID, CodProduto, TpProduto)
            .DataBind()
        End With

    Finally
        RelRegepaCapFac = Nothing
    End Try
End Sub

Protected Sub cmdExportarExcel_Click(sender As Object, e As EventArgs) Handles cmdExportarExcel.Click
    GeraRelatorioExcel()

End Sub
Private Sub GeraRelatorioExcel()
    Dim strScript As String
    Dim params As String() = New String(13) {}

    params(0) = ConfigurationSettings.AppSettings("IHInternetService_Relatorios") & "RelRegepaCapPopUpExcel.aspx"
    params(3) = Me.Usuario.Identity.Veiculo

    strScript = String.Format("<script>window.open(CodVeiculo={3}" & _
            "','_blank','width=780,height=460');</script>", params)

    Me.RegisterClientScriptBlock("POPUP", strScript)

End Sub

End Class

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="RelRegepaCap.aspx.vb"
Inherits="IHInternetService_Relatorios.RelRegepaCap" %>
function Esconde() { document.all("cboStatus").style.display = "none"; }
</script>
Buscar por: Tipo de Produtos: Produtos CPF/CNPJ do cliente Título 0%>"> Nº do Título Série Proposta Nome Cliente Cpf/Cnpj Cliente Conta Corrente Cód. Produto Nome Produto Status Vlr. Mensalidade Última Parcela Paga Data Último Pagamento Vlr. Reserva
                        </tr>
                    </ItemTemplate>
                    <FooterTemplate>
                        </TABLE> </TD> </TR> </TABLE>
                    </FooterTemplate>
                </asp:Repeater>
                </br>
                <table id="exportar" cellspacing="0" cellpadding="0" width="100%" align="center"
                    border="0" runat="server" visible="<%#rptRegepa.Items.Count>0%>">
                    <tr>
                        <td width="30%">
                        </td>
                        <td align="center" width="40%">
                            <asp:Button ID="cmdExportarExcel" CssClass="botao_formulario" runat="server" Text="Exportar Excel">
                            </asp:Button>
                        </td>
                        <td width="30%">
                        </td>
                    </tr>
                </table>
            </asp:Panel>
        </td>
    </tr>
</table>
</form>