Exporter une listView dans un fichier excel

**juliendu67117** · 15/11/2017, 08h00

Bonjour,

J'aimerai exporter avec un bouton le contenu d'une listview dans un fichier excel.
Je n'utilise pas de base de donnée
J'ai essayer le programme ci-dessous, ça m'ouvre bien un fichier excel mais vide :/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 Private Sub exporter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exporter.Click
        subExporterExcel(ListView1)
 
    End Sub
 
    Public Sub subExporterExcel(ByVal lvw As ListView)
        Try
            Dim xla As New Microsoft.Office.Interop.Excel.Application()
            xla.Visible = True
 
            Dim wb As Microsoft.Office.Interop.Excel.Workbook = xla.Workbooks.Add(Microsoft.Office.Interop.Excel.XlSheetType.xlWorksheet)
            Dim ws As Microsoft.Office.Interop.Excel.Worksheet = DirectCast(xla.ActiveSgeet, Microsoft.Office.Interop.Excel.Worksheet)
            Dim i As Integer = 1
            Dim j As Integer = 1
            Dim jj As Integer = lvw.Columns.Count
 
            For rr = 0 To lvw.Columns.Count - 1
                ws.Cells(i, j) = lvw.Columns(rr).Text
                j = j + 1
            Next
 
            i = 2
            j = 1
            For Each comp As ListViewItem In lvw.Items
                ws.Cells(i, j) = comp.Text.ToString()
                For Each drv As ListViewItem.ListViewSubItem In comp.SubItems
                    ws.Cells(i, j) = drv.Text.ToString()
                    j += 1
                    ws.Columns.AutoFit()
 
                Next
                j = 1
                i += 1
 
 
            Next
        Catch ex As Exception
 
        End Try
    End Sub