Etre capable d' insérer des données dans un classeur Microsoft Excel rendra votre application Visual Basic plus dynamique. Souvent, vous rencontrez la nécessité d'insérer la date d' un classeur lorsque vous exportez des données à partir de votre application VB . En VB , vous pouvez utiliser la bibliothèque d'objets Microsoft Excel pour créer un nouveau classeur Excel et insérer des données en elle. Vous pouvez utiliser la fonction " Now" pour obtenir la date du système et l'insérer dans Excel en utilisant la propriété «Range» . Instructions
1

Lancement de Microsoft Visual Basic Express , cliquez sur " Nouveau Projet" dans le volet gauche de l'écran de votre ordinateur, puis cliquez sur " Application Windows Forms . " Cliquez sur « OK ».
2

Double-cliquez sur "Button" pour ajouter un nouveau bouton. Double -cliquez sur " Button1" pour créer un événement clic pour ce bouton. Cliquez sur le menu «Projet» , cliquez sur « Ajouter une référence », puis cliquez sur l'onglet "COM" . Double -cliquez sur « Microsoft Excel 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 < p > 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 < p > 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 ».