Visual Basic is nu met Visual Basic for Applications of VBA . Dit programma stelt u in staat om vrijwel alle aspecten van Access , Excel en Word te controleren . Ook kunt u naar een van de programma's, terwijl in een ander te manipuleren . Volg deze stappen om te leren hoe u met Visual Basic gebruiken om Access , Excel en Word te controleren . Instructies gebruik 1 Visual Basic naar Access , Excel en Word te controleren door te klikken op " Tools" op de werkbalk van het programma . Selecteer " Macro " en vervolgens " Nieuwe macro opnemen . " Dit is waar je het commando in stap 2 kunt invoeren via 5 Programma 2 de huidige datum in Word door de volgende code : . " Sub EnterCurrentDate ( ) " " ' EnterCurrentDate Macro" " ' Macro geregistreerd 15/03/2005 op Gebruikersnaam " " ' Selection.InsertDateTime DateTimeFormat : = dd - MM - yy " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " " End Sub " < br > 3 Automatiseer uw database taken, zoals het doorkruisen van een tabel door de volgende code : " Sub LoopTableExample " " Dim db als DAO.Database " " Dim rs als DAO.Recordset " " Set db = CurrentDb " " Set rs = db.OpenRecordset ( " SELECT * FROM tblMain " ) " " Doe tot rs.EOF " " MsgBox rs ! FieldName " " rs.MoveNext " " loop " " RS.Close " " Set db = Nothing " " End Sub " 4 Maak een UDF om te gebruiken in een Excel-werkmap door het invoeren van deze code : " Public Function BusinessDayPrior ( dt als Datum ) als Datum " " Select Case Weekday ( dt , vbMonday ) " " Geval 1 " " BusinessDayPrior = dt - 3 ' Maandag wordt vrijdag " "Case 7 " " BusinessDayPrior = dt - 2 ' Zondag wordt vrijdag " "Case Else" " BusinessDayPrior = dt - 1 ' Alle andere dagen geworden vorige dag " " End Selecteer " " End Function " 5 Voeg een externe applicatie object aan uw programma door het invoeren van deze code : " Public Sub Voorbeeld ( ) " " Dim xlApp als Excel.Application " " Dim WDApp als Word . toepassing " " Stel xlApp = CreateObject ( " Excel.Applcation " ) " " set WDAPP = CreateObject ( " Word.Application " ) ' ... hier uw code ... " XLApp.Quit " " WDApp.Quit " " Stel xlApp = Nothing " " Stel WDApp = Nothing " " End Sub "
|