Exporter le contenu d'un datagrid vers excel ou n importe quelle autre fichier tabulé

Soyez le premier à donner votre avis sur cette source.

Snippet vu 32 944 fois - Téléchargée 32 fois

Commenter

Contenu du snippet

ce bout de code permet de recuperer tout le contenu d' une grille de datagrid sous .NET de le coller dans un richtextbox (propriété visible à false)et de l'enregistrer sous un fichier avec les extention xls,txt ou rtf pour que ensuite si on double clique dessu excel l'ouvre comme il faut.

Source / Exemple : 


Dim i
        Dim iCnt As Integer
        Dim tamponxls As String
        tamponxls = vbNullString
        iCnt = Me.BindingContext(DsAuthors1, tablename).Count
        For i = 0 To iCnt
            If i = iCnt Then Exit For
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 1)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 2)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 3)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 4)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 5)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 6)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 7)) & vbTab
            tamponxls = tamponxls & (Me.DataGrid1.Item(i, 8)) & vbTab & vbCr
        Next i
        RichTextBox1.Text = tamponxls
        ' Displays a SaveFileDialog so the user can save the Image
        ' assigned to Button2.
        Dim saveFileDialog1 As New SaveFileDialog
        saveFileDialog1.Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
        saveFileDialog1.Title = "Sauver le fichier exporter sous ?"
        'saveFileDialog1.ShowDialog()

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            RichTextBox1.SaveFile(saveFileDialog1.FileName, _
            RichTextBoxStreamType.PlainText)
        End If

A voir également

Ajouter un commentaire

Commentaires

Signaler
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
 -
Tien on m'a mis un 7/10 les commentaires lié à cette notes serais toujours les bien venu
Merci à toi "étranger"
Signaler
alprogrammeur
Messages postés
1
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
17 novembre 2005
 -
Je cherche comment exporter un fichier csv
mon prob, je sais pas ce que signifie 'bindingcontext'
et savefiledialog
il me met erreur
merci

Dim i
Dim iCnt As Integer
Dim tamponxls As String
tamponxls = vbNullString
iCnt = Me.BindingContext(DsAuthors1, tablename).Count
For i = 0 To iCnt
If i = iCnt Then Exit For
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 1)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 2)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 3)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 4)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 5)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 6)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 7)) & vbTab
tamponxls = tamponxls & (Me.DataGrid1.Item(i, 8)) & vbTab & vbCr
Next i
RichTextBox1.Text = tamponxls
' Displays a SaveFileDialog so the user can save the Image
' assigned to Button2.
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel|*.xls|Texte|*.txt|Richtext|*.rtf"
saveFileDialog1.Title = "Sauver le fichier exporter sous ?"
saveFileDialog1.ShowDialog()

If saveFileDialog1.ShowDialog() = DialogResult.OK Then
RichTextBox1.SaveFile(saveFileDialog1.FileName, _
RichTextBoxStreamType.PlainText)
End If
Signaler
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
 -
comme indiquer ds le titre ce bout de code sert à :
EXPORTER LE CONTENU D'UN DATAGRID VERS EXCEL OU N IMPORTE QUELLE AUTRE
et exporter un fichier csv vers je ne sais quoi d'ailleur
donc la source est issue d un DATAGRID (grille qui affiche le contenu d'une base de donnée) et exporter dans un fichier texte (cvs,xls, rtf ou ce que tu veux ça reste plus ou moins du texte)
Signaler
surfzoid
Messages postés
467
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010
 -
mais bon sang qui mets des notes sans dire quoi que ce soit, ont se demande vraiment si le code a été utiliser
lol
Signaler
skymohamed
Messages postés
1
Date d'inscription
jeudi 23 juin 2005
Statut
Membre
Dernière intervention
10 juillet 2006
 -
Salut tt le monde
S'il vous plai si vs avé déja trouver la solution d'export de données d'un datagrid vers excel, faite moi signe car vs allez me sauver la vie.
safé 4 mois que je cherche.
skymohamed@caramail.com
merci d'avance
Afficher les 37 commentaires
S'inscrire maintenant

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.

Du même auteur (surfzoid)