Código VBA insertar archivo Excel
Buenos días:
Necesitaría que un evento me inserte un archivo de Excel en un campo de Access que ya está preparado. Normalmente lo hago a mano, es decir, menú insertar + objeto, pero me gustaría automatizar este procedimiento con botón.
¿Me podríais ayudar facilitándome el código?
Un saludo
1 respuesta
Si analizas este ejemplo (http://goo.gl/ZtAOM) verás que ahí hay una función que te permite navegar y seleccionar un archivo.
Si incorporas ese módulo a tu BD (recuerda que debes registrar la referencia "Microsoft Office x.x Object Library") puedes hacer lo siguiente:
Te creas un botón de comando en tu formulario
En el evento "Al hacer click" le generas el siguiente código:
...
Private Sub...
Dim vExcel as string
vExcel =buscarArchivo()
If vExcel="" then exit sub
With me.objOLE
.sourcedoc=miArch
.action=acOLECreateLink
End with
End sub
...
Ten en cuenta que:
- Deberás cambiar <objOLE> por el nombre de tu control OLE
- La acción está establecida en la creación de un OLE vinculado (acOLECreateLink). Si no lo quieres vinculado deberás cambiar esa constante de VB por
AcOLECreateEmbed
Y listo. Así debería funcionarte.
