3 Copiez et collez le code suivant pour créer les variables d'objets Excel que vous utiliserez pour créer un nouveau classeur Excel : Photos
objXLS As application = nouvelle application Photos
objXLXBks As classeurs = Nothing
objXLSBk As Workbook = Nothing
Dim objXLSShts que des feuilles = Nothing
objXLSSht As Feuille = Nothing
objXLSrng As Range = Nothing
4 Type de
le code suivant pour ajouter un nouveau classeur :
objXLS.Visible = false
objXLS.DisplayAlerts = False
objXLSBk = C ( objXLS.Workbooks.Add (), Workbook)
5
Ajoutez le code suivant pour ajouter une nouvelle feuille de calcul: Photos
objXLXBks = objXLS.Workbooks
objXLSSht = C ( . objXLXBks (1) Sheets.Item (1) , feuille de travail)
< p> objXLSShts = objXLSBk.Worksheets
6
Insérer la date à "A1" dans Excel en ajoutant la ligne de code suivante:
objXLSSht.Cells (1, 1 ) = Now ()
7
enregistrer le classeur Excel en tapant le code suivant :
objXLSSht.SaveAs ("C: \\ ExcelDate.xlsx " )
8
Afficher une boîte de message lorsque le classeur a été créé et enregistré .
MessageBox.Show ( "Date a été ajouté à Excel " )
Appuyez sur F5 pour exécuter votre programme , puis cliquez sur "Button1 ».
