-
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 Sub4 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 SubSub 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 WithTerminar con
End Sub10 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.