har Visual Basic lanseras nu Visual Basic for Applications eller VBA . Detta program ger dig möjlighet att styra praktiskt taget alla aspekter av Access, Excel och Word . Det gör också att du kan manipulera ett av programmen medan i en annan . Följ dessa steg för att lära sig hur man använder Visual Basic för att styra Access, Excel och Word . Instruktioner
1
Använd Visual Basic för att styra Access, Excel och Word genom att klicka på " Verktyg" i programmets verktygsfält . Välj " Macro " och sedan " Spela in nytt makro . " Det är där du kan skriva in kommandona i steg 2 till 5
2
Program aktuellt datum i Word genom att ange följande kod : . " Sub EnterCurrentDate ( ) " " ' EnterCurrentDate Macro " " ' Macro inspelade 15/03/2005 av Användarnamn " " ' Selection.InsertDateTime DateTimeFormat : = dD-MM - dd " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " " End Sub "
3
Automatisera databas uppgifter som tillryggalägger en tabell genom att ange följande kod : " Sub LoopTableExample " " Dim db som DAO.Database " " Dim rs As DAO.Recordset " " Set db = CurrentDb " " Set rs = db.OpenRecordset ( " SELECT * FROM tblMain " ) " " Do Until rs.EOF " " MsgBox rs ! FieldName " " rs.MoveNext " " loop " " rs.Close " " Set db = Nothing " " End Sub "
4
Skapa en UDF för att använda i en Excel-arbetsbok genom att skriva in den här koden : " Public Function BusinessDayPrior ( dt As Date ) As Date " " Välj Case Weekday ( dt , vbMonday ) " " mål 1 " " BusinessDayPrior = dt - 3 ' måndag blir fredag " " fall 7 " " BusinessDayPrior = dt - 2 ' söndag blir fredag " " Case Else " " BusinessDayPrior = dt - 1 ' Alla andra dagar blir föregående dag " " End Välj " " End Function "
5
Lägg till ett externt program objekt till ditt program genom att skriva in den här koden : " Public Sub exempel ( ) " " Dim xlApp som Excel.Application " " Dim WDApp som Word . Application " " set xlApp = CreateObject ( " Excel.Applcation " ) " " set WDAPP = CreateObject ( " Word.Application " ) ' ... din kod här ... " XLApp.Quit " " WDApp.Quit " " Set xlApp = Nothing " " Set WDApp = Nothing " " End Sub " Addera
