Skip to main content
2 de 2
tags editadas
Igor
  • 161
  • 1
  • 1
  • 9

Exportar GridView para CSV em arquivo de excel / VB.NET

Seguindo exemplos encontrados na web e até mesmo no stackoverflow eu preenchi o botão btnGerarCSV dessa forma.

Protected Sub btnGerarCSV_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGerarCSV.Click
     Dim sb As New StringBuilder
     Dim gv As New GridView
            Try
                Page.Response.Clear()
                Page.Response.Buffer = True
                Page.Response.AddHeader("content-disposition", "attachment;Pedido_" & Session("ddlPedido") & ".csv")
                Page.Response.Charset = ""
                Page.Response.ContentType = "application/vnd.ms-excel"                
    
                grdPedido.DataSource = Session("dtPedidosColetados")
               
                For i As Integer = 0 To grdPedido.Columns.Count - 1
                    'Adiciona separador por vírgula
                    sb.Append(grdPedido.Columns(i).HeaderText + ","c)
                Next
                'Adiciona nova linha
                sb.Append(vbCr & vbLf)
    
                For i As Integer = 0 To grdPedido.Rows.Count - 1
                    For j As Integer = 0 To grdPedido.Columns.Count - 1
                        'Adiciona separador por  vírgula
                        sb.Append(grdPedido.Rows(i).Cells(j).Text + ","c)
                    Next
                    'Adiciona nova linha
                    sb.Append(vbCr & vbLf)
                Next
    
                Response.Output.Write(sb.ToString())
                Response.Flush()
                Response.End()
    
            Catch ef As ThreadAbortException
                Exit Try
            Catch ex As Exception
    
            End Try
    
        End Sub

A minha página funciona da seguinte forma: O usuário escolhe Data Inicial e Data Final e seleciona o botão buscar. Então o grdPedido é preenchido e exibido em tela. Após isso dois botões são exibidos, um para exportar para excel em planilha, que está funcionando corretamente e um botão para CSV.

Porém o que me acontece é que ao chegar na linha For i As Integer = 0 To grdPedido.Columns.Count - 1 o número de colunas é = 0, mesmo o grid retornando a consulta normalmente.

Já alterei o código de diversas formas, mas cai sempre nesse mesmo problema.

Igor
  • 161
  • 1
  • 1
  • 9