Exporter une listView dans un fichier excel
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:
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 |
