4 Double -cliquez sur Button1 pour ouvrir l' événement clic du bouton . Tapez le code suivant dans la première ligne du module de déclarer l' espace de noms Microsoft Office : Photos
importations Microsoft.Office.Interop
5
Copiez et collez le code suivant pour créer un nouveau classeur Excel et ajouter les valeurs de zone de texte à la feuille de calcul:
Dim xlApp en tant que Néo Excel.application
xlApp.Visible = True
XLwks As Excel.Workbooks = XLapp.Workbooks
XLwk As Excel.Workbook = XLwks.Add
XLshts As Excel.Sheets = XLwk.Worksheets
XLsht As Excel.Worksheet = XLshts ( "Sheet1" )
XLsht.Range ( "A1") . Value = Me.TextBox1.Text.ToString
XLsht.Range ( "A2" ) . Value = Me.TextBox2.Text . ToString
XLsht.SaveAs ("C: \\ excelBk.xlsx " )
6
Appuyez sur " F5 " pour exécuter votre programme et saisir du texte dans la première zone de texte. Entrez du texte dans la deuxième zone de texte. Appuyez sur " Button1" pour transmettre les informations dans les zones de texte pour le classeur Excel enregistré dans C : \\. ExcelBk.xlsx