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 33 302 fois - Téléchargée 33 fois
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
Je comprend tout ce que tu fais mais je n'arrive pas à utiliser :
Dim DsAuthors1 As DataSet
Dim tablename
tamponxls = vbNullString
iCnt = Me.BindingContext(DsAuthors1, tablename).Count
tablename doit etre declaré en quoi ?
Et moi je dispose de 5 colonne mais de 15 lignes alors des que je veux intervertir les i avec les Integer ça me donne des erreurs :/
Merci
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.