Exportar Uma List View Para Excel

[vitorarouca]

Gostava de exportar os dados de uma listviw para excel de uma forma directa

Como posso fazer?

[mariozneto]

Vou fazer um exemplo para você, já já eu posto!!!!!

Falow... T+

[mariozneto]

Veja este exemplo que fiz para você:

Private Sub cmdcarregar_Click()

'cria a coluna
 ListView1.ColumnHeaders.Add , , "Primeira"
 ListView1.ColumnHeaders.Add , , "Segunda"

 'mostra a coluna
 ListView1.View = lvwReport

 'inseri itens
 Dim itmx As ListItem

 Set itmx = ListView1.ListItems.Add(, , "Primeiro Valor")
 itmx.SubItems(1) = "Segundo Valor"

 Set itmx = ListView1.ListItems.Add(, , "Terceiro Valor")
 itmx.SubItems(1) = "Quarto Valor"

End Sub

Private Sub cmdgravar_Click()
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlWs As Object
    
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Add
    Set xlWs = xlWb.Worksheets(1)
    
    xlApp.Visible = True
    xlApp.UserControl = True
            
    Dim linha As Integer
    linha = 1
            

For i = 1 To ListView1.ListItems.Count
   xlWs.Cells(i, 1).Value = ListView1.ListItems(i).Text
   xlWs.Cells(i, 2).Value = ListView1.ListItems(i).SubItems(1)
Next

End Sub

Qualquer Dúvida pode postar!!!!

Falow... T+