Soyez le premier à donner votre avis sur cette source.
Snippet vu 8 345 fois - Téléchargée 36 fois
Public Sub Export_XLS(Liste As ListView, Filename As String) Dim X As Integer, Y As Integer Dim Tempo As String ' Création du fichier Excel Open Filename For Output As #2 With Liste ' Récupère le nom des colonnes For X = 1 To .ColumnHeaders.Count Tempo = Tempo & CStr(.ColumnHeaders(X).Text) & Chr$(9) Next X ' Ecriture des données des colonnes Print #2, Tempo ' Ecriture d'une ligne vide (pas obligatoire) Print #2, Chr$(32) ' Variable à zéro pour la suite Tempo = "" ' Lecture ligne par ligne de la liste For X = 1 To .ListItems.Count ' Récupère le 1er Item de la ligne X Tempo = CStr(.ListItems(X)) & Chr$(9) ' Récupère les SubItems de X sur la même ligne For Y = 1 To .ColumnHeaders.Count - 1 Tempo = Tempo & CStr(.ListItems(X).SubItems(Y)) & Chr$(9) Next Y ' Ecriture des données Print #2, Tempo ' Efface la variable Tempo = "" Next X End With Close #2 End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.