Exportar dados para excel

Question

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

Answer 1

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.

Answer 2

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 !!!

Answer 3

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.

Answer 4

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.