Come utilizzare Visual Basic per il controllo accessi, Excel e Word

Visual Basic ha ora lanciato Visual Basic for Applications o VBA . Questo programma permette di controllare praticamente tutti gli aspetti della Access, Excel e Word . Consente inoltre di manipolare uno dei programmi mentre in un altro . Seguire questi passi per imparare a utilizzare Visual Basic per controllare Access, Excel e Word . Istruzioni
1

utilizzare Visual Basic per controllare Access, Excel e Word facendo clic su "Strumenti" nella barra degli strumenti del programma. Selezionare " Macro ", quindi " Registra nuova macro . " Questo è dove si possono inserire i comandi in passaggi da 2 a 5
2

Programma la data presente in Word inserendo il seguente codice: . "Sub EnterCurrentDate ( ) " "' EnterCurrentDate Macro " "' Macro registrato 15/03/2005 da Nome utente " " ' DateTimeFormat Selection.InsertDateTime : = gg - mm-aa " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = false" "End Sub "

3

automatizzare le attività di database, ad esempio attraversare una tabella inserendo il seguente codice : "Sub LoopTableExample " " Dim db As 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

Creare un UDF da utilizzare in una cartella di lavoro di Excel inserendo questo codice: "Funzione BusinessDayPrior pubblica ( dt As Date ) As Date " " Select Case Giorno della settimana ( dt , vbMonday ) " " caso 1 " " BusinessDayPrior = dt - 3 ' Lunedi diventa Venerdì" "Case 7 " " BusinessDayPrior = dt - 2' Domenica diventa Venerdì" " Case Else " " BusinessDayPrior = dt - 1 ' Tutti gli altri giorni diventano giorno precedente " "End selezionare " " End Function "
5

Aggiungi un oggetto applicazione esterna per il programma inserendo questo codice: " Esempio Sub Public ( ) " " Dim xlApp Come Excel.Application " " Dim wdApp come Word . applicazione " " Imposta xlApp = CreateObject ( " Excel.Applcation " ) " " set wdApp = CreateObject ( " Word.Application " ) ' ... qui il codice ... " XLApp.Quit " " WDApp.Quit " " Imposta xlApp = niente " "Imposta wdApp = niente " "End Sub "