Bonjour,
Avez vous un petit code pour exporter les données d'une listview vers excel.
Merci
Bonjour,
Avez vous un petit code pour exporter les données d'une listview vers excel.
Merci
Salut
Un minimum de recherche dans se même forum:
Recherche: Type: Messages; Mots-clef(s): listview, excel; Forum: VB.NET, Livres et forums enfants
Un parmi 30 discussions trouvées:
Exporter une listView dans un fichier excel
:whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
saut de ligne
OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈
Merci j'avais vu plusieurs exemple dans l'exemple que tu me montres j'ai une erreur sur le microsoft.office... n'est pas défini ?
C'est quoi ?
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 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.ActiveSheet, 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
Savoir ajouter une référence, c'est quand même la base !!!
Je te suggère vivement d'ouvrir un tutoriel sur l'outil et déjà, celui-ci :
https://docs.microsoft.com/fr-fr/vis...t?view=vs-2022
Mes tutoriels
Avant de poster :
- F1
- FAQ
- Tutoriels
- Guide du développeur Delphi devant un problème
Attention à la compatibilité.
Office 16 est compatible uniquement avec Office 2016 et supérieurs
Sinon
Office 15 => Office 2013 et supérieurs
Office 14 => Office 2010 et supérieurs
Office 12 => Office 2007 et supérieurs
En dessous, c'est beaucoup trop obsolète (ne gère pas le format XLSX).
Mes tutoriels
Avant de poster :
- F1
- FAQ
- Tutoriels
- Guide du développeur Delphi devant un problème
Partager