A voir également:
- Transfert de données VB.NET vers EXCEL
- Liste déroulante excel - Guide
- We transfert - Guide
- Formule excel - Guide
- Transfert photo android vers pc - Guide
- Windows 7 vers windows 10 - Guide
6 réponses
il faut tout d'abors ajoutter la reference Microsoft Excel comme suivant :
projet + ajouter une refenece +Menu COM +valider OK
Code :
imports Microsoft.Excel....
Class Form1
sub button1_Click()
Dim c,n as inetger
Dim xl as new Excel.application
xl.visible=true
xl.worckboxs.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
end sub
eh bonne chance
next
projet + ajouter une refenece +Menu COM +valider OK
Code :
imports Microsoft.Excel....
Class Form1
sub button1_Click()
Dim c,n as inetger
Dim xl as new Excel.application
xl.visible=true
xl.worckboxs.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
end sub
eh bonne chance
next
salut,
je vous remerci pour votre reponse. je travaille avec le vb.net
j'ai ajouté la référence Microsoft Excel 11.0 Object library,
mais imports microsoft.excel n'existe pas, j'ai trouvé microsoft.office en installant la reference Microsoft Office.....
mais le EXCEL.APPLICATION de la ligne DIM XL AS NEW EXCEL.APPLICATION est souligné donc erreure.
svp aidez moi à resoudre ce probléme.
Merci pour votre aide
je vous remerci pour votre reponse. je travaille avec le vb.net
j'ai ajouté la référence Microsoft Excel 11.0 Object library,
mais imports microsoft.excel n'existe pas, j'ai trouvé microsoft.office en installant la reference Microsoft Office.....
mais le EXCEL.APPLICATION de la ligne DIM XL AS NEW EXCEL.APPLICATION est souligné donc erreure.
svp aidez moi à resoudre ce probléme.
Merci pour votre aide
Salut Ramadan,
Pr resoudre votre blem.
Il faut ajouter la référence Microsoft Excel 11.0 Object library,
puis : Imports Excel
Et par rapport à l'érreur "mais le EXCEL.APPLICATION de la ligne DIM XL AS NEW EXCEL.APPLICATION est souligné donc erreure." Il faut importer Imports System.MissingMemberException
Bonne Chance
Pr resoudre votre blem.
Il faut ajouter la référence Microsoft Excel 11.0 Object library,
puis : Imports Excel
Et par rapport à l'érreur "mais le EXCEL.APPLICATION de la ligne DIM XL AS NEW EXCEL.APPLICATION est souligné donc erreure." Il faut importer Imports System.MissingMemberException
Bonne Chance
Imports Microsoft.Office.Interop.Excel
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c, ligne As Integer
Dim xl As New Excel.Application
xl.Visible = True
xl.Workbooks.Add()
Try
For ligne = 0 To DataGridView1.RowCount - 1
For c = 0 To DataGridView1.ColumnCount - 1
xl.Cells(1, c + 1) = DataGridView1.Columns(c).HeaderText
xl.Cells(ligne + 2, c + 1) = DataGridView1.Rows(ligne).Cells(c).Value
Next c
Next ligne
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
'Bonne courage a tous
Imports Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c, ligne As Integer
Dim xl As New Excel.Application
xl.Visible = True
xl.Workbooks.Add()
Try
For ligne = 0 To DataGridView1.RowCount - 1
For c = 0 To DataGridView1.ColumnCount - 1
xl.Cells(1, c + 1) = DataGridView1.Columns(c).HeaderText
xl.Cells(ligne + 2, c + 1) = DataGridView1.Rows(ligne).Cells(c).Value
Next c
Next ligne
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
'Bonne courage a tous
copadiaz
Messages postés
1
Date d'inscription
lundi 11 mai 2009
Statut
Membre
Dernière intervention
11 mai 2009
11 mai 2009 à 13:04
11 mai 2009 à 13:04
bonjour je code sur vb.net et sql serveur 2000 je voulé en clicant sur un outon transferer le contenu de mon datagridview ver excel 2007
j'ai besoin de votre aide svp
j'ai besoin de votre aide svp
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jerome35
Messages postés
13
Date d'inscription
vendredi 29 janvier 2010
Statut
Membre
Dernière intervention
26 juin 2010
26 juin 2010 à 17:40
26 juin 2010 à 17:40
bonjour,
je voudrais developper une petite application sous vb net 2008 qui servirait juste a remplir des cases dans un tableur excel et je n'ai aucune idee de la facon de procédé .
j'ai etudiez les explications dessus mais je butes..
merci
je voudrais developper une petite application sous vb net 2008 qui servirait juste a remplir des cases dans un tableur excel et je n'ai aucune idee de la facon de procédé .
j'ai etudiez les explications dessus mais je butes..
merci
ca marche comme suit mais 2005, tu peux essayer
Imports Microsoft.Office.Interop.Excel
Public Class frm_menu
Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_personnel.Click
Dim c, n As Integer
Dim xl As New Microsoft.Office.Interop.Excel.Application
xl.Visible = True
xl.Workbooks.Add()
For c = 0 To 5 'Datagridview1.columns.count - 1
xl.Cells(c + 1, 1) = "c" & c.ToString '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
End Sub
Imports Microsoft.Office.Interop.Excel
Public Class frm_menu
Private Sub btn_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_personnel.Click
Dim c, n As Integer
Dim xl As New Microsoft.Office.Interop.Excel.Application
xl.Visible = True
xl.Workbooks.Add()
For c = 0 To 5 'Datagridview1.columns.count - 1
xl.Cells(c + 1, 1) = "c" & c.ToString '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
End Sub
8 juin 2010 à 16:51
dans xl.cells(l+1,j+1)=Datagridview1.rows(l).cells(c).value c'est pas j mais c non?
dans xl.cells(c+1,1)=Datagridview1.columns(c).name il met une erreur
Merci d'avance des reponses
Modifié par abdo le 4/02/2011 à 18:41
je veux le code VB.NET et ADO.NET sous vusial basic 2008 qui permet de transferer les données d'une base de donnée SQLServeur vers excel et l'inverse
merci d'avance
13 mars 2014 à 14:50