har Visual Basic nå lansert Visual Basic for Applications eller VBA . Dette programmet lar deg kontrollere nesten alle aspekter av Access , Excel og Word. Den lar deg også til å manipulere et av programmene , mens i en annen. Følg disse trinnene for å lære å bruke Visual Basic til å kontrollere Access, Excel og Word. Instruksjoner
en

Bruk Visual Basic for å kontrollere Access, Excel og Word ved å klikke på "Verktøy" på programmet verktøylinjen. Velg " Makro " og deretter " Registrer ny makro . " Det er der du kan skrive inn kommandoer i trinn 2 til 5
2

Program dagens dato i Word ved å skrive inn følgende kode : . " Sub EnterCurrentDate ( )" " ' EnterCurrentDate Macro" " ' Makro innspilt 15/03/2005 av Brukernavn " " ' Selection.InsertDateTime DateTimeFormat : = dd- mM - åå " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = false " "End Sub "

3

Automatisere database oppgaver som krysser en tabell ved å oppgi denne koden : " Sub LoopTableExample " " Dim db As DAO.Database " " Dim retten DAO.Recordset " "Set db = CurrentDb " " Set rs = db.OpenRecordset ( "SELECT * FROM tblMain ") " " Do inntil rs.EOF " " MsgBox rs ! FieldName " " rs.MoveNext " " loop " " rs.Close " " Set db = Nothing " " End Sub "
4

Lag en UDF å bruke i en Excel-arbeidsbok ved å skrive inn denne koden : " Public Function BusinessDayPrior ( dt As Date ) Som Date " " Velg sak Weekday ( dt, vbMonday )" "Case 1" " BusinessDayPrior = dt - 3 ' mandag blir fredag ​​" "Case 7 " " BusinessDayPrior = dt - 2 ' søndag blir fredag ​​" "Case Else " " BusinessDayPrior = dt - en ' Alle andre dagene blir gårsdagen " " End Velg " " End Function "
5

Legg et eksternt program objekt til programmet ved å skrive inn denne koden : " Public Sub Eksempel ( ) " " Dim XLApp Som Excel.Application " " Dim WDApp Som Word. applikasjon " " Set XLApp = CreateObject ( " Excel.Applcation ") " " set WDAPP = CreateObject ( " Word.Application ") ' ... koden din her ... " XLApp.Quit " " WDApp.Quit " "Set XLApp = Nothing " "Set WDApp = Nothing " " End Sub "