none
Exportar dados para excel RRS feed

  • Pergunta

  • Boa noite!!!

    Essa é a primeira vez que necessito exportar dados adquiridos através do visual studio (em VB) para o excel, e não estou conseguindo sair do lugar pra falar a verdade....alguém poderia me dar um norte?!

    Desde já agradeço.

    Att.

    Murilo

    quinta-feira, 7 de setembro de 2017 02:59

Respostas

  • Bom dia Antero 

    pelo que entendi do seu problema, acredito que essa solução possa te ajudar :

    Public Shared Sub gerarExcel(grid As DataGridView, nomeRelatorio As String)
            Dim XcelApp As New Excel.Application()

            If grid.Rows.Count > 0 Then
                Try
                    frmExcel.Show()
                    frmExcel.prbExcel.Minimum = 0
                    frmExcel.prbExcel.Maximum = grid.Rows.Count

                    XcelApp.Application.Workbooks.Add(Type.Missing)
                    XcelApp.Cells(1, 3).Font.Bold = True
                    XcelApp.Cells(1, 3) = nomeRelatorio

                    For i As Integer = 0 To grid.Rows.Count - 1
                        For j As Integer = 0 To grid.Columns.Count - 1
                            If i = 0 Then
                                XcelApp.Cells(3, j + 1).Font.Bold = True
                                XcelApp.Cells(3, j + 1) = grid.Columns(j).HeaderText
                            End If
                            If Not IsNothing(grid.Rows(i).Cells(j).Value) Then
                                XcelApp.Cells(i + 4, j + 1) = grid.Rows(i).Cells(j).Value.ToString()
                            End If
                        Next
                    Next

                    XcelApp.Columns.AutoFit()

                    XcelApp.Visible = True
                    frmExcel.Close()

                Catch ex As Exception
                    MessageBox.Show("Erro : " + ex.Message)
                    XcelApp.Quit()
                End Try

            End If
        End Sub

    Espero ter ajudado !!!

    sexta-feira, 8 de setembro de 2017 12:30

Todas as Respostas

  • Murilo,

    Veja se isto pode te ajudar:

    How to export data from DataSet or DataGridView into an Excel in ASP.NET

    Att,


    Antero Marques
    _______________________________________________________________________________
    Se a resposta for útil, marque como útil, se respondeu totalmente sua dúvida, marque como resposta. O Fórum MSDN é utilizado também como base de conhecimento, então é responsabilidade de todos mantê-lo organizado e funcional.


    quinta-feira, 7 de setembro de 2017 13:28
  • Bom dia Antero 

    pelo que entendi do seu problema, acredito que essa solução possa te ajudar :

    Public Shared Sub gerarExcel(grid As DataGridView, nomeRelatorio As String)
            Dim XcelApp As New Excel.Application()

            If grid.Rows.Count > 0 Then
                Try
                    frmExcel.Show()
                    frmExcel.prbExcel.Minimum = 0
                    frmExcel.prbExcel.Maximum = grid.Rows.Count

                    XcelApp.Application.Workbooks.Add(Type.Missing)
                    XcelApp.Cells(1, 3).Font.Bold = True
                    XcelApp.Cells(1, 3) = nomeRelatorio

                    For i As Integer = 0 To grid.Rows.Count - 1
                        For j As Integer = 0 To grid.Columns.Count - 1
                            If i = 0 Then
                                XcelApp.Cells(3, j + 1).Font.Bold = True
                                XcelApp.Cells(3, j + 1) = grid.Columns(j).HeaderText
                            End If
                            If Not IsNothing(grid.Rows(i).Cells(j).Value) Then
                                XcelApp.Cells(i + 4, j + 1) = grid.Rows(i).Cells(j).Value.ToString()
                            End If
                        Next
                    Next

                    XcelApp.Columns.AutoFit()

                    XcelApp.Visible = True
                    frmExcel.Close()

                Catch ex As Exception
                    MessageBox.Show("Erro : " + ex.Message)
                    XcelApp.Quit()
                End Try

            End If
        End Sub

    Espero ter ajudado !!!

    sexta-feira, 8 de setembro de 2017 12:30
  • Vinicius,

    A dúvida é do Murilo. rsrs

    Att,


    Antero Marques
    _______________________________________________________________________________
    Se a resposta for útil, marque como útil, se respondeu totalmente sua dúvida, marque como resposta. O Fórum MSDN é utilizado também como base de conhecimento, então é responsabilidade de todos mantê-lo organizado e funcional.


    sexta-feira, 8 de setembro de 2017 12:37
  • Boa tarde,

    Por falta de retorno essa thread está sendo encerrada

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 11 de setembro de 2017 17:24
    Moderador