Export d'un datagrid vers excel en vb6 [Résolu]
cs_ROPE
- Messages postés
- 2
- Date d'inscription
- jeudi 13 mars 2003
- Dernière intervention
- 10 août 2005
- Messages postés
- 35
- Date d'inscription
- mardi 9 août 2005
- Dernière intervention
- 16 septembre 2006
A voir également:
- Vb6 export to excel
- Dbgrid vb6 - Meilleures réponses
- Vb6 dbgrid - Meilleures réponses
- Visual Basic / VB.NET : [.net] export dataset to excel - CodeS SourceS - Guide
- Visual Basic / VB.NET : Exportation et mise en forme de données de vb6 vers microsoft excel - - Guide
- Manipuler des fichiers excel sous vb6 sans référencer excel et sans laisser de processus dans le ges - Conseils pratiques - Visual Basic / VB.NET
- Visual Basic / VB.NET : Importer et exporter avec excel - CodeS SourceS - Guide
- Export feuil excel en html qui fonctionne - Codes sources - Visual Basic / VB.NET (VBA)
14 réponses
Meilleure réponse
vaut mieux le remplacer par celui ci
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
i = rsProv1.RecordCount
j = DataGrid1.Columns.Count
For k = 0 To j - 1
xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
l = 0
rsProv1.MoveFirst
Do While Not rsProv1.EOF
For k = 0 To j - 1
DataGrid1.Col = k
xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
rsProv1.MoveNext
l = l + 1
Loop
Exit Sub
errxcel:
MsgBox "Excel not found"
car le premier va te faire un bug
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
i = rsProv1.RecordCount
j = DataGrid1.Columns.Count
For k = 0 To j - 1
xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
l = 0
rsProv1.MoveFirst
Do While Not rsProv1.EOF
For k = 0 To j - 1
DataGrid1.Col = k
xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
rsProv1.MoveNext
l = l + 1
Loop
Exit Sub
errxcel:
MsgBox "Excel not found"
car le premier va te faire un bug
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
119 internautes nous ont dit merci ce mois-ci
ce code je viens de l'établir hier , tu peux l'essayer dans une fonction où tu veux transférer les données de datagrid vers excel
j'espère que ça pourra t'être utile
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
i = rsProv1.RecordCount
j = DataGrid1.Columns.Count
For k = 0 To j - 1
xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
For l = 0 To i - 1
For k = 0 To j - 1
DataGrid1.Col = k
DataGrid1.Row = l
xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
Next l
Exit Sub
errxcel:
MsgBox "Excel not found"
j'espère que ça pourra t'être utile
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
xlo.workbooks.Add
i = rsProv1.RecordCount
j = DataGrid1.Columns.Count
For k = 0 To j - 1
xlo.workbooks(1).sheets(1).Cells(l + 1, k + 1) = DataGrid1.Columns(k).Caption
Next k
For l = 0 To i - 1
For k = 0 To j - 1
DataGrid1.Col = k
DataGrid1.Row = l
xlo.workbooks(1).sheets(1).Cells(l + 2, k + 1) = DataGrid1.Text
Next k
Next l
Exit Sub
errxcel:
MsgBox "Excel not found"
- Messages postés
- 3
- Date d'inscription
- mardi 11 mars 2003
- Dernière intervention
- 16 janvier 2007
- Messages postés
- 20
- Date d'inscription
- samedi 19 avril 2003
- Dernière intervention
- 21 février 2012
Bonjour!
Mon problème aujourd'hui et que je tourne sur VB 2008!
Si l'un d'entre vous a une solution car ce code ne fonctionne pas!
pour ma part j'ai essayé celui ci:
Dim c, j As Integer
Dim xl As New Object
xl = CreateObject("Excel.application")
xl.visible = True
xl.workbooks.Add()
For c = 0 To DataGridView1.Columns.Count - 1
xl.cells(c + 1, 1) = DataGridView1.Columns(c).Name
Next
For l As Integer = 0 To DataGridView1.Rows.Count - 1
For c = 0 To DataGridView1.Rows.Count - 1
xl.cells(l + 1, j + 1) = DataGridView1.Rows(l).Cells(c).Value
Next c
Next l
mais il ne veut pas afficher tout le Datagrid;
c'est pour cette raison que je demande votre aide!
Mon problème aujourd'hui et que je tourne sur VB 2008!
Si l'un d'entre vous a une solution car ce code ne fonctionne pas!
pour ma part j'ai essayé celui ci:
Dim c, j As Integer
Dim xl As New Object
xl = CreateObject("Excel.application")
xl.visible = True
xl.workbooks.Add()
For c = 0 To DataGridView1.Columns.Count - 1
xl.cells(c + 1, 1) = DataGridView1.Columns(c).Name
Next
For l As Integer = 0 To DataGridView1.Rows.Count - 1
For c = 0 To DataGridView1.Rows.Count - 1
xl.cells(l + 1, j + 1) = DataGridView1.Rows(l).Cells(c).Value
Next c
Next l
mais il ne veut pas afficher tout le Datagrid;
c'est pour cette raison que je demande votre aide!
- Messages postés
- 20
- Date d'inscription
- samedi 19 avril 2003
- Dernière intervention
- 21 février 2012
Private Sub cmdimprimerexcel_Click()
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
'xlo.Workbooks.Add
xlo.Workbooks.Open App.Path & "\emp.xls"
'emp.xls est le fichier Excel à éditer
i = emplois.Recordset.RecordCount
j = DataGrid1.Columns.Count
For k = 2 To j - 1
xlo.Workbooks(1).Sheets(1).Cells(l + 11, k - 1) = DataGrid1.Columns(k).Caption
Next k
xlo.Workbooks(1).Sheets(1).Cells(4, 3) = etab
xlo.Workbooks(1).Sheets(1).Cells(5, 3) = eng
xlo.Workbooks(1).Sheets(1).Cells(9, 4) = emplois.Recordset.RecordCount
xlo.Workbooks(1).Sheets(1).Cells(37, 4) = Date
For l = 0 To i - 1
For k = 2 To j - 1
DataGrid1.Col = k
DataGrid1.Row = l
xlo.Workbooks(1).Sheets(1).Cells(l + 12, k - 1) = DataGrid1.Text
Next k
Next l
Exit Sub
errxcel:
MsgBox "Pas des données à exporter ..."
End Sub
Bon courage ....
Dim i, j, k, l As Integer
On Error GoTo errxcel
Dim xlo As Object
Set xlo = CreateObject("Excel.Application")
DoEvents
xlo.Visible = True
'xlo.Workbooks.Add
xlo.Workbooks.Open App.Path & "\emp.xls"
'emp.xls est le fichier Excel à éditer
i = emplois.Recordset.RecordCount
j = DataGrid1.Columns.Count
For k = 2 To j - 1
xlo.Workbooks(1).Sheets(1).Cells(l + 11, k - 1) = DataGrid1.Columns(k).Caption
Next k
xlo.Workbooks(1).Sheets(1).Cells(4, 3) = etab
xlo.Workbooks(1).Sheets(1).Cells(5, 3) = eng
xlo.Workbooks(1).Sheets(1).Cells(9, 4) = emplois.Recordset.RecordCount
xlo.Workbooks(1).Sheets(1).Cells(37, 4) = Date
For l = 0 To i - 1
For k = 2 To j - 1
DataGrid1.Col = k
DataGrid1.Row = l
xlo.Workbooks(1).Sheets(1).Cells(l + 12, k - 1) = DataGrid1.Text
Next k
Next l
Exit Sub
errxcel:
MsgBox "Pas des données à exporter ..."
End Sub
Bon courage ....
Merci, mais je trouver la solution hier soir!
N'ayant pas eu le temps de répondre hier je vous l'affiche tous de suite!
Dim xl As New Object
xl = CreateObject("Excel.application")
xl.visible = True
xl.workbooks.Add()
For x As Integer = 0 To DataGridView1.Rows.Count - 1
For y As Integer = 0 To DataGridView1.ColumnCount - 1
xl.cells(x + 1, y + 1) = DataGridView1.Rows(x).Cells.Item(y).Value.ToString
Next y
Next x
Le fichier excel sera afficher comme dans le datagrid, ce programe fonctionne sur vb 2008 donc je ne sais pas pour les version enterrieur.
N'ayant pas eu le temps de répondre hier je vous l'affiche tous de suite!
Dim xl As New Object
xl = CreateObject("Excel.application")
xl.visible = True
xl.workbooks.Add()
For x As Integer = 0 To DataGridView1.Rows.Count - 1
For y As Integer = 0 To DataGridView1.ColumnCount - 1
xl.cells(x + 1, y + 1) = DataGridView1.Rows(x).Cells.Item(y).Value.ToString
Next y
Next x
Le fichier excel sera afficher comme dans le datagrid, ce programe fonctionne sur vb 2008 donc je ne sais pas pour les version enterrieur.
Je suis ravie de voir mon code vous est utile. Je l'avais développé quand j'étais encore étudiante. Désolée si j'ai pas pu répondre à certaines questions durant ce temps, ça fait trois que j'ai pas mis les mains sur un code du coup j'ai tout oublié. Faut dire que le développement me manque un peu!
Bon courage et bonne chance à tous !
Bon courage et bonne chance à tous !
- Messages postés
- 1
- Date d'inscription
- jeudi 8 avril 2010
- Dernière intervention
- 30 juin 2011
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.