Visual Basic a maintenant lancé Visual Basic pour Applications ou VBA. Ce programme vous permet de contrôler presque tous les aspects de Access, Excel et Word. Il vous permet également de manipuler un des programmes tandis que dans un autre . Suivez ces étapes pour apprendre à utiliser Visual Basic pour contrôler Access, Excel et Word. Instructions
1
utiliser Visual Basic pour contrôler Access, Excel et Word en cliquant sur "Outils" dans la barre d'outils du programme. Sélectionnez " Macro ", puis " Enregistrer une macro . " C'est là que vous pouvez entrer les commandes dans les étapes 2 à 5
2 Programme de
la date actuelle dans Word en entrant le code suivant : . " Sous EnterCurrentDate ( )" " " EnterCurrentDate Macro » « Macro enregistré le 15/03/2005 par Pseudo "" ' DateTimeFormat Selection.InsertDateTime : = dd -mm-aa », InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = false" "End Sub " < br >
3
automatiser vos tâches de base de données comme traversant une table en entrant le code suivant : " Sous LoopTableExample " " de db As DAO.Database " " les rs As DAO.Recordset " " Set db = CurrentDB "" Set rs = db.OpenRecordset ("SELECT * FROM tblMain ") "" Do Until rs.EOF "" MsgBox rs ! NomChamp "" rs.MoveNext "" boucle "" rs.Close " " Set db = Nothing " "End Sub "
4
Créer un UDF à utiliser dans un classeur Excel en entrant ce code: " BusinessDayPrior de la fonction publique ( dt As Date ) As Date " " Choisir jour de la semaine de l'affaire ( dt , vbMonday ) " " cas 1 " " BusinessDayPrior = dt - 3 de lundi devient Friday" "Cas 7" " BusinessDayPrior = dt - 2 'Sunday devient Friday" " Case Else " " BusinessDayPrior = dt - 1' Tous les autres jours deviennent veille " "End Sélectionnez " " End Function "
5
Ajouter un objet application externe à votre programme en entrant ce code: " Exemple public Sub ( ) "" xlApp As Excel.Application "" WDApp As Word. application " " Set xlApp = CreateObject (" Excel.Applcation ") "" ensemble WDAPP = CreateObject (" Word.Application " ) « ... votre code ici ... " XlApp.Quit " " WDApp.Quit " " Set xlApp = Nothing " "Set WDApp = Nothing " "End Sub "
