Export d'un datagrid vers excel en vb6Résolu

Question

Je suis &#224; la recherche d'un exemple d'exportation d'un datagrid aliment&#233; par ADO vers excel en VB6.

Merci d'avance.

v_b · Accepted Answer

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

v_b · Answer

ce code je viens de l'&#233;tablir hier , tu peux l'essayer dans une fonction o&#249; tu veux transf&#233;rer les donn&#233;es de datagrid vers excel
j'esp&#232;re que &#231;a pourra t'&#234;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"

cs_ROPE · Answer

Un tout grand merci V_B pour ton exemple, il tourne sans probl&#232;me.
Le seul soucis est le temps d'ex&#233;cution pour l'exportation d'un grand nombre de lignes et colonnes (dans mon cas  12000 lignes et 73 colonnes au maximum si je prends tout le recordset.)

tnRAVALISON · Answer

Bonjour V_B, rsProv1 est un recordset, et la connection se pointe où?

Elmarzougui · Answer

Merci pour tout le monde, 
C Super....

erokage · Answer

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!

Elmarzougui · Answer

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 ....

erokage · Answer

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.

DydyStone · Answer

franchement v_b tu mérite ce pseudo.Merci bokou mec   t'es 1

v_b · Answer

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 !

anisvb · Answer

MERCI INFINIMENT

rimoutcha22 · Answer

Je suis à la recherche d'un exemple d'Afficher le contenu d'un datagrid  vb6 dans une feuille excel.
merci d'avance.

sadia2011 · Answer

Même si on est en 2012 mais le fait de dire merci à v_b est une obligation,votre code ça marche bien,Merci bien.

v_b · Answer

sadia2011 merci à toi 
ravie que mon code t'est utile 
bon courage !