Usuário com melhor resposta
Exportar dados para excel

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
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 SubEspero ter ajudado !!!
- Marcado como Resposta Filipe B CastroModerator segunda-feira, 11 de setembro de 2017 17:24
Todas as Respostas
-
Murilo,
Veja se isto pode te ajudar:
How to export data from DataSet or DataGridView into an Excel in ASP.NETAtt,
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.- Editado Antero Marques 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 SubEspero ter ajudado !!!
- Marcado como Resposta Filipe B CastroModerator segunda-feira, 11 de setembro de 2017 17:24
-
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.- Editado Antero Marques 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.