Microsoft Access y Excel
Ver Más instrucciones
1
Abra Microsoft Access y pulsa Alt + F para exponer el punto de menú " Opciones". Haga clic en ese elemento y haga clic en " Centro de confianza " a la izquierda del cuadro de diálogo " Opciones de acceso " . Haga clic en el botón " Trust Center Settings" y luego la opción " Macro Settings " en la izquierda. Haga clic en la opción "Habilitar todas las macros " , a continuación, cierre todos los cuadros de diálogo abiertos pulsando los botones "Aceptar" .
2
Presione Alt + F11 para entrar en el entorno de desarrollo integrado de Visual Basic ( 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 ( conocido como "macro ").
3
Pega el siguiente programa en la nueva ventana de código: Public Sub
SayHelloFromAccess () applicationExcel As Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application ") applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Hola de acceso" applicationExcel.ActiveWorkbook . SaveAs ( "c: \\ FromAccess.xls ") applicationExcel.QuitEnd Sub
4 Haga clic en " Herramientas " y luego en " Referencias ", en la barra de herramientas del IDE . Buscar en la lista en el cuadro de diálogo "Referencias" para la opción " Biblioteca de objetos de Microsoft Excel Ejecute el programa haciendo clic en cualquier lugar dentro de él, a continuación, presione F5. Espere que el cursor vuelva a su icono de "Ready ", después de que se necesita en su icono "Ocupado" Abra el Explorador de Windows y lo utilizan para navegar hasta el archivo que acaba de crear en la macro de Access. : "c: \\ FromAccess.xls ". Haga doble clic en ese archivo para abrir Excel y haga clic en "Sí" si Excel muestra una advertencia sobre el formato de archivo. Observe que la hoja de cálculo Excel muestra el mensaje "Hola " de la macro Crear un nuevo libro en Excel y guárdelo como . "C: \\ book1.xlsm . " Crear una pequeña columna de números ascendentes de 1 a 10 o menos, en cualquier parte de la hoja de trabajo activa. Seleccione la columna, a continuación, escriba " mylist " y presionar " Enter" en el cuadro Nombre de Excel ( cerca de la parte superior izquierda de la pantalla principal de Excel. ) guardar el libro , cerca de Excel , a continuación, pulse Ctrl + Alt + Delete. Haga clic en " Iniciar administrador de tareas ", haga clic en la pestaña " Procesos" del Administrador de tareas . Seleccione cada elemento que dice " Excel ", haga clic en "Terminar proceso " para detener Excel. Cierre el Administrador de tareas. Pega el siguiente programa después de la última sentencia del programa SayHelloFromAccess has especificado anteriormente . Pública SortExcelList Sub ( ) Dim applicationExcel Como Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application ") applicationExcel.Workbooks.Open fichero: = "C : \\ Book1.xlsm " Macro1 applicationExcelapplicationExcel.ActiveWorkbook.SaveapplicationExcel.QuitEnd Sub Sub Macro1 ( appXL Como Excel.Application ) Dim sel Como RangeWith appXL.Application.Goto Referencia: . = " mylist " Clave ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add : = Selection.Columns ( 1 ) _ , sortOn : = xlSortOnValues , Orden : = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd conend conend Sub Coloque el cursor en cualquier lugar de la subrutina SortExcelList y presione F5. Vuelva a abrir el archivo " C: \\ Book1.xlsm ." Y observe que la columna de números está en orden descendente, según la nueva macro Acceso Si Access muestra un error después de pulsar F5 , Finalizar Excel procesos que utilizan las instrucciones desde el paso 8 , a continuación, repita este paso.
5
6
7
8
9
10