Nwlapcug.com


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

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

Istruzioni

1

Utilizzare Visual Basic per Access, Excel e Word di controllo facendo clic su "Strumenti" nella barra degli strumenti del programma. Selezionare "Macro" e poi "Registra nuova Macro." Questo è dove è possibile immettere i comandi nei passaggi da 2 a 5.

2

Programmare la data presente nella parola inserendo il codice riportato di seguito: "Sub EnterCurrentDate()" "'EnterCurrentDate Macro" "'Macro registrata il 15/03/2005 da Username" "'Selection.InsertDateTime DateTimeFormat: = dd-MM-yy", InsertAsField: = False, _DateLanguage: = wdEnglishAUS, CalendarType: = wdCalendarWestern, _InsertAsFullWidth: = False ""End Sub"

3

Automatizzare le attività di database come attraversare una tabella inserendo il codice riportato di seguito: "Sub LoopTableExample" "Dim db As DAO. Database""Dim rs As DAO. Recordset"" Set db = CurrentDb "" Set rs = db. OpenRecordset ("selezionare * da tblMain") ""fare fino a rs. EOF""MsgBox rs! "FieldName"rs. MoveNext""loop""rs. Chiudi"" Set db = Nothing ""End Sub"

4

Creare una funzione definita dall'utente da utilizzare in una cartella di lavoro Excel inserendo questo codice: "Pubblica funzione, BusinessDayPrior (dt As Date) As Data" "Selezionare caso Weekday(dt, vbMonday)" "Caso 1" "BusinessDayPrior = dt - 3 ' lunedì diventa venerdì" "Caso 7" "BusinessDayPrior = dt - 2 ' domenica diventa venerdì" "Case Else" "BusinessDayPrior = dt - 1 ' tutti gli altri giorni diventano giorno precedente" "End Select" "End Function"

5

Aggiungere un oggetto di applicazione esterna al programma inserendo questo codice: "Public Sub Example" "Dim XLApp As Excel. Application" "Dim WDApp As Word. Application" "Set XLApp = CreateObject ("Excel.Applcation")" "set WDAPP = CreateObject '... il tuo codice qui... "XlApp" "WDApp.Quit" "Set XLApp = Nothing" "impostare WDApp = Nothing" "End Sub"