1
Uso Visual Basic para el control de Access, Excel y Word , haga clic en "Herramientas" en la barra de herramientas del programa. Seleccione " Macro " y luego " Grabar nueva macro. " Aquí es donde puede introducir los comandos en los pasos 2 a 5
Programa 2
la fecha actual en Word introduciendo el siguiente código: . "Sub EnterCurrentDate ()" " ' EnterCurrentDate Macro" " ' Macro 15/03/2005 registrado por nombre de usuario " " ' DateTimeFormat Selection.InsertDateTime : = dd- mm-aa " , InsertAsField : = False , _DateLanguage : = wdEnglishAUS , CalendarType : = wdCalendarWestern , _InsertAsFullWidth : = False " "End Sub"
3
automatizar sus tareas de base de datos como atravesar una tabla introduciendo el siguiente código: "Sub LoopTableExample " "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
Crear una UDF para su uso en un libro de Excel mediante la introducción de este código: " BusinessDayPrior Función Pública ( dt Como Fecha ) Como fecha" " Día de la semana Seleccione Case ( dt, vbMonday ) " "Caso 1 " " BusinessDayPrior dt = - 3 ' Lunes convierte Friday" "Caso 7 " " BusinessDayPrior dt = - 2 ' Domingo se convierte en Friday" " Case Else " " BusinessDayPrior dt = - 1 ' El resto de días se convierten en días anteriores " "End Seleccione " " End Function "
5
Agregar un objeto de aplicación externa para su programa mediante la introducción de este código: " Ejemplo Public Sub () " " xlApp As Excel.Application " " WDApp As Word. Aplicación " " Establecer xlApp = CreateObject ( " Excel.Applcation ") " " set WDAPP = CreateObject ( " Word.Application ") " ... aquí el código ... " XlApp.Quit " " WDApp.Quit " "Establecer xlApp = Nothing " "Establecer WDApp = Nothing " "End Sub "