¿Cómo puedo crear un enlace a una hoja de cálculo externa a través de VBA y Acceso

? Cuando los usuarios de Excel tienen acceso más amplio conjunto de herramientas de base de datos para manipular los datos de hoja de cálculo , pueden hacer clic en el icono " Excel " Acceso "en la opción" Importar "del panel de duplicar los datos de hoja de cálculo como una nueva tabla de Access. Pero si los usuarios quieren en lugar de mantener una única copia de los datos , pueden hacerlo mediante la creación de un vínculo en lugar de una tabla separada . Usando VBA para crear este enlace alivia los usuarios acceso de tener que crear de forma manual , un proceso que requiere la selección de opciones. Código VBA elegirá las opciones correctas , lo que reduce el riesgo de posibles errores de los usuarios . Instrucciones
1

Open Access , a continuación, entrar en el entorno de desarrollo integrado de Visual Basic ( IDE ) con la tecla " Alt -F11 ". . Inserte un nuevo módulo de código mediante la opción " Módulo " en el menú "Insertar" del IDE
2

Pega el siguiente subrutina en cualquier parte del nuevo módulo de código : Public Sub

xstest ()

DoCmd.TransferSpreadsheet acLink , 5 , _

" newtable ", " " Es cierto ", A1: C4 "

End Sub

3

tipo sobre el texto " " (sin las comillas) el nombre y la ruta de la hoja de cálculo Excel que desea Acceso a enlazar. Además, el tipo sobre el texto " A1 : C4 " . La especificación de rango completo, incluyendo los títulos de campo , de la tabla en la hoja de cálculo que desea que el enlace se refiere a

Esta subrutina crea un enlace desde el Excel hoja de cálculo que se especifica en una tabla llamada " newtable . " VBA de Access creará automáticamente esta tabla para mostrar los datos del enlace. El argumento de la función " acLink " dice VBA para crear un enlace dinámico , en lugar de la importación y haga una copia de los datos.
4

Haga clic en cualquiera de las declaraciones del subprograma , a continuación, pulse la tecla " F5 " para ejecutar la subrutina . Pulse la tecla " Alt -F11 " para volver a entrar en el entorno estándar de Access , haga doble clic en el icono " newtable " en el panel " Todas las tablas " en la parte izquierda de la pantalla . Access mostrará los datos de la tabla , que será el mismo que el de la hoja de cálculo cuando se ve en Excel . ( Tenga en cuenta que Microsoft ha desactivado la función de permitir el acceso para modificar los datos de hoja de cálculo . )
5

Pulse " Alt -F11 " para volver a entrar en el IDE de Visual Basic, haga los siguientes cambios en el " xstest " subrutina : Cambiar el texto" acLink "por" acImport , " y cambiar " newtable "por" newtable2 " . Estos cambios darán instrucciones VBA para crear una nueva tabla de Access que las importaciones , en lugar de los enlaces a los datos , hojas de cálculo. Esta acción permitirá a los usuarios de acceso para modificar los datos de la nueva tabla (aunque estos cambios no se verán reflejados en la hoja de cálculo ) .
6

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