har Visual Basic nu lanceret Visual Basic for Applications eller VBA . Dette program giver dig mulighed for at styre næsten alle aspekter af Access , Excel og Word . Det giver dig også mulighed for at manipulere en af de programmer, mens i en anden. Følg disse trin for at lære at bruge Visual Basic for at kontrollere adgangen , Excel og Word. Instruktioner
1
Brug Visual Basic for at kontrollere adgangen , Excel og Word ved at klikke på "Funktioner" på programmet værktøjslinjen. Vælg "Macro " og derefter " Indspil ny makro . " Det er her du kan indtaste kommandoer i trin 2 til 5
2
Program dags dato i Word ved at indtaste følgende kode : . "Sub EnterCurrentDate () " " ' EnterCurrentDate Macro " " ' Makro indspillet 15/03/2005 efter Brugernavn "" ' Selection.InsertDateTime DateTimeFormat : = dd -MM- yyyy " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = false " " End Sub" < br >
3
Automatiser din database opgaver såsom gennemkører et bord ved at indtaste følgende kode : "Sub LoopTableExample " " Dim db som DAO.Database " " Dim rs As DAO.Recordset " "Set db = CurrentDb " " Set rs = db.OpenRecordset ( "SELECT * FROM tblMain " ) " " Gør Indtil rs.EOF "" MsgBox rs ! FieldName "" rs.MoveNext "" loop "" rs.Close " " Set db = Nothing " " End Sub "
4
Opret en UDF til brug i en Excel-projektmappe ved at indtaste denne kode: "Public Function BusinessDayPrior (dt som dato ) Hvad Date " "Vælg Case Weekday (dt, vbMonday )" "Case 1" " BusinessDayPrior = dt - 3 ' mandag bliver til fredag" "Case 7 " " BusinessDayPrior = dt - 2 ' Sunday bliver fredag" "Case Else " " BusinessDayPrior = dt - 1 ' Alle andre dage bliver foregående dag " " End Vælg "" End Function "
5
Tilføj et eksternt program objekt til dit program ved at indtaste denne kode: " Public Sub Eksempel ( ) "" Dim XLApp som Excel.Application "" Dim WDApp som Word. ansøgning " " Set XLApp = CreateObject ( " Excel.Applcation " ) "" set WDAPP = CreateObject ( " Word.Application «) « ... din kode her ... " XLApp.Quit " " WDApp.Quit " "Set XLApp = Nothing" "Set WDApp = Nothing " " End Sub "