ubiquitour.com

¿Cómo se puede crear un vínculo a una hoja de cálculo mediante VBA y acceso desde el exterior?

¿Cómo se puede crear un vínculo a una hoja de cálculo mediante VBA y acceso desde el exterior?

Cuando los usuarios de Excel más amplio conjunto de acceso de las herramientas de base de datos para manipular sus datos de hoja de cálculo, puede haga clic en icono de "Excel" de acceso en el panel de "Importación" para duplicar los datos de la hoja de cálculo como una nueva tabla de Access. Pero si en lugar de ello, los usuarios desean mantener una sola copia de los datos, puede hacerlo mediante la creación de un enlace en lugar de una tabla separada. Utilizar VBA para crear este enlace alivia los usuarios acceso de tener que crearla manualmente, un proceso que requiere la selección de opciones. Código de VBA elige las opciones correctas, disminuir la probabilidad de error de usuario posible.

Instrucciones

1 Acceso abierto, luego ingrese el entorno de desarrollo integrado de Visual Basic (IDE) presionando "Alt-F11." Inserte un nuevo módulo de código seleccionando "Módulo" del menú "Insertar" del IDE.

2 Pegue la siguiente subrutina en cualquier parte del nuevo módulo de código:

Xstest() pública de Sub

DoCmd.TransferSpreadsheet acLink, 5 _

"newtable", "<INSERT_COMPLETE_PATH_NAME_TO_EXCEL_SPREADSHEET_FILE>", True, "A1:C4"

End Sub

3 Escriba sobre el texto "< INSERT_COMPLETE_PATH_NAME_TO_EXCEL_SPREADSHEET_FILE >" (sin las comillas) el nombre de ruta de acceso completa de la hoja de cálculo de Excel que desee acceso a. También, escriba sobre el texto "A1:C4" la especificación de la gama completa, incluyendo cualquier partidas de campo, de la tabla en la hoja de cálculo que desea que el enlace para hacer referencia a.

Esta subrutina crea un enlace de la hoja de cálculo de Excel que especifica a una tabla llamada "newtable." Acceso a VBA creará automáticamente esta tabla para Mostrar datos del enlace. El argumento de la función "acLink" dice VBA para crear un vínculo dinámico, en lugar de importar y hacer una copia de los datos.

4 Haga clic en cualquiera de las declaraciones de la subrutina, luego presione "F5" para ejecutar la subrutina. Pulse "Alt + F11" para volver a entrar en el entorno de acceso estándar, haga doble clic en el icono de "newtable" en el panel "Todas las tablas" a la izquierda de la pantalla. Access mostrará los datos de la tabla, que serán el mismo que el de la hoja de cálculo en Excel. (Tenga en cuenta que Microsoft ha deshabilitado la característica de permitir el acceso editar los datos de la hoja de cálculo).

5 Pulse "Alt + F11" para volver a entrar en el IDE de Visual Basic, luego realizar las siguientes modificaciones en la subrutina "xstest": cambiar el texto "acLink" leer "acImport" y cambiar "newtable" para leer "newtable2." Estos cambios le instruirá acerca de VBA para crear una nueva tabla de Access que importa, en lugar de enlaces, los datos de la hoja de cálculo. Esta acción permitirá a los usuarios acceso a modificar los datos de la tabla nueva (aunque estas modificaciones no se reflejará en la hoja de cálculo).

6 Ejecutar la subrutina como usted hizo en el paso 4, pulse "Alt-F8" para volver a Access. Haga doble clic en el icono de "newtable2" en el panel izquierdo de la pantalla y luego editar la nueva tabla según sea necesario.