afficher deux datagridview dans excel
bonjour,
J'ai pu par ce code afficher un datagridview dans excel.je voudrais maintenant afficher deux ou trois datagridview qui sont sur la même fenêtre dans lune feuille excel.voici mon code:
je précise que "excellant" est la fenêtre sur laquelle se trouve le datagrid
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Module Module2
Public Sub excell()
Dim c, ligne As Integer
Dim xl As New Excel.Application
xl.Visible = True
xl.Workbooks.Add()
Try
For ligne = 0 To excellant.DataGridView1.RowCount - 1
For c = 0 To excellant.DataGridView1.ColumnCount - 1
xl.Cells(1, c + 1) = excellant.DataGridView1.Columns(c).HeaderText
xl.Cells(ligne + 2, c + 1) = excellant.DataGridView1.Rows(ligne).Cells(c).Value
Next c
Next ligne
Catch ex As Exception
End Try
End Sub
End Module |
merci pour vos assistances