Visual Basic lançou agora o Visual Basic for Applications ou VBA. Este programa permite-lhe controlar praticamente todos os aspectos de Access, Excel e Word. Ele também permite que você manipule um dos programas , enquanto em outro. Siga estes passos para aprender a usar o Visual Basic para controlar Access, Excel e Word. Instruções
1

usar o Visual Basic para controlar Access, Excel e Word , clicando em "Ferramentas" na barra de ferramentas do programa. Selecione "Macro " e depois " Gravar Nova Macro . " Este é o lugar onde você pode digitar os comandos nos Passos 2 a 5
2

Programa a presente data no Word , digitando o seguinte código: . "Sub EnterCurrentDate ()" ' EnterCurrentDate Macro " " " Macro" 15/03/2005 gravado por Username " " ' Selection.InsertDateTime DateTimeFormat : = dd- mm-aa " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " " End Sub " < br >
3

Automatize suas tarefas de banco de dados , tais como atravessar uma tabela inserindo o seguinte código: "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 " " laço " " rs.Close " " Set db = Nothing " " End Sub "
4

Criar um UDF para usar em uma planilha do Excel , inserindo este código: "Função Pública BusinessDayPrior (dt As Date ) As Date " " Select Case semana (dt, vbMonday ) " "Caso 1" " BusinessDayPrior = dt - 3 ' se torna segunda-feira Friday" "Caso 7" " BusinessDayPrior = dt - 2 ' Sunday torna Friday" " Case Else " " BusinessDayPrior = DT - 1 ' Todos os outros dias se tornam dia anterior " " End Selecione " " End Function "
5

Adicionar um objeto de aplicativo externo para o seu programa , inserindo este código: " Public Sub Exemplo () " " Dim xlApp as Excel.Application " " Dim wdApp Como Word. Aplicação " " Definir xlApp = CreateObject (" Excel.Applcation ") " " set wdApp = CreateObject (" Word.Application ") ' ... seu código aqui ... " XlApp.Quit " " WDApp.Quit " "Defina xlApp = Nothing " "Defina wdApp = Nothing " "End Sub "