Come utilizzare Visual Basic per controllare l'accesso, Excel e Word

August 10

Visual Basic ha ora lanciato Visual Basic, Applications o VBA. Questo programma consente di controllare praticamente tutti gli aspetti di Access, Excel e Word. Consente inoltre di manipolare uno dei programmi, mentre in un altro. Seguire questi passi per imparare come utilizzare Visual Basic per controllare l'accesso, Excel e Word.

istruzione

1 Utilizzare Visual Basic per controllare l'accesso, Excel e Word facendo clic su "Strumenti" nella barra degli strumenti del programma. Selezionare "Macro", quindi "Registra nuova macro." Questo è dove è possibile inserire i comandi in punti da 2 a 5.

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

3 Automatizzare le operazioni di database come attraversare una tabella inserendo il seguente codice: "LoopTableExample Sub" "Dim db Come DAO.Database" "rs fiochi come DAO.Recordset" "Set db = CurrentDb" "Set rs = db.OpenRecordset (" SELECT * FROM tblMain ")" "Do Fino rs.EOF" "rs MsgBox! 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 pubblica BusinessDayPrior (dt As Date) come data" "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 Select "" End Function "

5 Aggiunta di un oggetto applicazione esterno al programma inserendo questo codice: "Esempio Public Sub ()" "Dim xlApp come Excel.Application" "Dim WDApp come Word.Application" "Set xlApp = CreateObject (" Excel.Applcation ")" " set WDAPP = createObject ( "Word.Application"), '... il codice qui ... "xlApp.Quit" "WDApp.Quit" "set xlApp = Nothing" "set WDApp = Nothing" "End Sub"


Articoli Correlati