. " Cliquez sur " Références" puis sélectionnez "Ajouter". Sélectionner "COM" et cliquez sur " Excel 12.0 Object Library ". Cliquez sur « OK ». Double- cliquez sur "Button " sur le volet " Outils " pour ajouter un nouveau bouton de commande à " Form1 ". Double -cliquez sur " Button1 " pour ouvrir le "Form1.vb" module .
3 Appuyez sur "Ctrl + A" et appuyez sur "Supprimer" pour supprimer tout le code . Copiez et collez le code suivant dans le module " Form1.vb " .
4
importations Microsoft.Office.Interop
Public Class Form1
Private Sub Button1_Click ( sender comme System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim excelApp En tant que Néo Excel.application
ExcelApp.Visible = True
ExcelWbks Dim comme Excel.Workbooks = ExcelApp.Workbooks
ExcelWbk As Excel.Workbook = ExcelWbks.Add
ExcelShts As Excel.Sheets = ExcelWbk.Worksheets
ExcelSht As Excel . . Feuille = ExcelShts ( "Sheet1" )
ExcelSht.Range ("A1" ) Valeur = "Ceci est un Microsoft Excel office 2007 Feuille "
ExcelSht.SaveAs ("C: \\ my2007ExcelWorkbook.xlsx " )
End Sub End Class
5
Appuyez sur" F5 " pour exécuter votre programme et cliquez sur" Button1 "pour créer un Microsoft office Excel 2007 classeur.