Ouvrir excel à l'aide de visual studio
redahs
-
Peregna2007 -
Peregna2007 -
Bonjour ! j'aimerais savoir comment ouvrir un fichier excel que j'ai déja créer a partir de visual studio 2005 a l'aide d'un bouton "imprimer" et (si possible) comment remplir les champs de ce méme fichier excel a partir des textbox ou d'un datagrid.
N.B:
-J'utilise microsoft office 2003.
-J'ai importé "imports microsoft.office.interop.excel".
-Je suis débutant en matiére de programmation ... please help me :)
Merci de bien vouloir me répondre ^_^.
Réda
N.B:
-J'utilise microsoft office 2003.
-J'ai importé "imports microsoft.office.interop.excel".
-Je suis débutant en matiére de programmation ... please help me :)
Merci de bien vouloir me répondre ^_^.
Réda
A voir également:
- Ouvrir excel à l'aide de visual studio
- Comment ouvrir un fichier epub ? - Guide
- Liste déroulante excel - Guide
- Ouvrir fichier .bin - Guide
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Word et excel gratuit - Guide
1 réponse
Dim App_Excel As Microsoft.Office.Interop.Excel.Application
Dim Classeur As Microsoft.Office.Interop.Excel.Workbook
Dim Feuille As Microsoft.Office.Interop.Excel.Worksheet
Dim _LaTable As New Data.DataTable
_LaTable = _MonDataSet.Tables(0).Copy
nbChamp = _LaTable.Rows.Count
App_Excel = CType(CreateObject("Excel.application"), Microsoft.Office.Interop.Excel.Application)
Classeur = CType(App_Excel.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
Feuille = CType(Classeur.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
Dim saveFilDialog1 As New SaveFileDialog
saveFilDialog1.Filter = "Excel(*.xls)|*.xls"
saveFilDialog1.Title = "Enregistrer un fichier Excel"
If saveFilDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Classeur.SaveAs(saveFilDialog1.FileName)
Feuille.Application.Visible = True
End If
Dim Classeur As Microsoft.Office.Interop.Excel.Workbook
Dim Feuille As Microsoft.Office.Interop.Excel.Worksheet
Dim _LaTable As New Data.DataTable
_LaTable = _MonDataSet.Tables(0).Copy
nbChamp = _LaTable.Rows.Count
App_Excel = CType(CreateObject("Excel.application"), Microsoft.Office.Interop.Excel.Application)
Classeur = CType(App_Excel.Workbooks.Add, Microsoft.Office.Interop.Excel.Workbook)
Feuille = CType(Classeur.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
Dim saveFilDialog1 As New SaveFileDialog
saveFilDialog1.Filter = "Excel(*.xls)|*.xls"
saveFilDialog1.Title = "Enregistrer un fichier Excel"
If saveFilDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Classeur.SaveAs(saveFilDialog1.FileName)
Feuille.Application.Visible = True
End If