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
Soyez sympa, pensez -y
Balises[CODE]...[/CODE]
Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Balises[C]...[/C] code intégré dans une phrase.
Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
👉 → → 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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager