Cómo controlar otro programa desde Microsoft Access

El control de otro programa de acceso se puede hacer de varias maneras. Otras aplicaciones, como Microsoft Word y Excel, se pueden controlar a través de los objetos de automatización que exponen. Ejemplos de tales objetos incluyen un documento de Word y Excel una función de clasificación. El acceso puede crear y administrar estos objetos como extensiones de acceso en sí.

Instrucciones

1 Abra Microsoft Access y presione Alt + F para exponer los \ "Opciones \" elemento de menú. Haga clic en ese elemento, y luego haga clic en \ "Centro de confianza \" a la izquierda de la \ "Opciones de acceso \" cuadro de diálogo. Haga clic en el botón \ "Configuración del Centro de confianza \", entonces el \ "Configuración de macros \" elemento de la izquierda. Haga clic en el \ "Habilitar todas las macros \" opción, a continuación, cuadros de diálogo de cierre todas las pulsando el botón "OK \" \.

2 Presione Alt + F11 para entrar en el entorno de Visual Basic desarrollo integrado (IDE). Seleccione \ "Insertar, \" seguido de \ "Módulo \" en la barra de herramientas del IDE, para crear un nuevo archivo en el que para entrar en un programa (También conocido como \ "macro. \")

3 Pega el siguiente programa en la nueva ventana de código:

Public Sub SayHelloFromAccess ()
Dim applicationExcel Como Excel.Application
Establecer applicationExcel = CreateObject (\ "Excel.Application \")
applicationExcel.Workbooks.Add
applicationExcel.ActiveCell = \ "Hola de acceso \"
applicationExcel.ActiveWorkbook.SaveAs (\ "c: \ FromAccess.xls \")
applicationExcel.Quit
End Sub

4 Haga clic en "Herramientas \, \" y luego \ "Referencias, \" en la barra de herramientas del IDE. Buscar en la lista de las "Referencias \" \ cuadro de diálogo para el elemento \ "Microsoft Excel <versión> Biblioteca de objetos. \" Seleccione la casilla de verificación de ese elemento cuando lo encuentre, a continuación, pulse \ "Aceptar \" para regresar al acceso IDE '.

5 Ejecutar el programa haciendo clic en cualquier lugar dentro de él, a continuación, pulsando F5. Espere que el cursor para volver a su icono \ "Ready \" después de que se necesita en su icono "Ocupado \" \.

6 Abra el Explorador de Windows y utilizarlo para desplazarse hasta el archivo que acaba de crear por su macro de acceso: \ "c: \ FromAccess.xls \". Haga doble clic en el archivo para abrir Excel y haga clic en \ "Sí \" si Excel muestra una advertencia acerca del formato de archivo. Observe que la hoja de cálculo Excel muestra el mensaje "Hola \" \ de su macro.

7 Crear un nuevo libro en Excel y guardarlo como \ "C: \ book1.xlsm \." Crear una pequeña columna de números ascendentes de 1 a 10 o así, en cualquier parte de la hoja de cálculo activa. Seleccione la columna, a continuación, escriba \ "milista \" y pulse \ "Enter \" en la casilla Nombre de Excel (cerca de la parte superior izquierda de la pantalla principal de Excel.)

8 Guarde el libro, cierre Excel, a continuación, pulse Ctrl + Alt + Supr. Haga clic en \ "Iniciar administrador de tareas, \" y haga clic en "Procesos \" de la Task Manager \ pestaña. Seleccione cada elemento que lee \ "Excel, \" y luego haga clic en \ "Terminar proceso \" para detener Excel. Cierre el Administrador de tareas.

9 Pega el siguiente programa después de la última sentencia del programa SayHelloFromAccess especificó anteriormente.

Public Sub SortExcelList ()
Dim applicationExcel Como Excel.Application
Establecer applicationExcel = CreateObject (\ "Excel.Application \")
applicationExcel.Workbooks.Open FileName: = \ "C: \ Book1.xlsm \"
macro1 applicationExcel
applicationExcel.ActiveWorkbook.Save
applicationExcel.Quit
End Sub

Sub Macro1 (appXL Como Excel.Application)
sel tenue como gama
con appXL

.Application.Goto Reference:=\"mylist\"
.ActiveSheet.Sort.SortFields.Clear
.ActiveSheet.Sort.SortFields.Add Key:=Selection.Columns(1) _
, SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With .ActiveSheet.Sort
.SetRange Selection
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Terminar con
End Sub

10 Coloque el cursor en cualquier lugar de la subrutina y presione F5 SortExcelList. Vuelva a abrir el archivo \ "C: \ Book1.xlsm \" y observe que la columna de números es ahora con el fin, según la nueva macro Acceso descendente.

Si Access muestra un error después de pulsar F5, poner fin a todos los procesos de Excel usando las instrucciones desde el paso 8, a continuación, repetir este paso.

Consejos y advertencias

• Las instrucciones del artículo involucran el cambio de la configuración de seguridad de acceso. Peform estas instrucciones sólo con plena conciencia de los riesgos que implica.