Exporter le contenu d'un datagrid vers excel ou n importe quelle autre fichier tabulé
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
- Exporter le contenu d'un datagrid vers excel ou n importe quelle autre fichier tabulé
- Automatiser import excel vers access - Forum Visual Basic
- Exporter données excel vers word vba - Forum Visual Basic
- Copier le contenu d'une feuille excel dans une autre vba ✓ - Forum Visual Basic
- Extraire des données d'un fichier excel avec python ✓ - Forum Python
- Vba ouvrir un fichier excel sans l'afficher ✓ - Forum Visual Basic 6
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.