4  Tapez le code suivant dans la première ligne du module d'importer le namespace Microsoft Office : 
 
 importations Microsoft.Office.Interop 
 
 5 
 Ajoutez le code suivant dans l'événement Clic bouton pour créer une nouvelle feuille de calcul Excel : 
 
 xlsxA As New Excel.Application 
 
 xlsxA.Visible = True 
 
 xlsxWks As Excel.Workbooks = xlsxA.Workbooks 
 
 de xlsxWk As Excel.Workbook = xlsxWks.Add 
 
 xlsxShts As Excel.Sheets = xlsxWk.Worksheets 
 
 xlsxSht As Excel.Worksheet = xlsxShts ( "Sheet1" ) 
 6 
 ajouter plusieurs lignes de la feuille de calcul en ajoutant le code suivant : 
 
 xlsxSht.Range ( "A1") . value = " Ligne 1 avec des données " 
 xlsxSht.Range 
 ( "A2" ) . Value = " Row 2 avec des données " 
 xlsxSht.Range ( "A3" ) 
 . Value = " Row 3 avec des données " 
 7 
 Enregistrer la feuille de calcul : 
 
 xlsxSht.SaveAs (" C: \\ Temp \\ ExcelFile.xlsx " ) 
 8 
 presse "F5" pour exécuter le programme et cliquez sur " Button1 ".