Imprimir página | Cerrar ventana

Celda Excel en campo Access

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y Otros sistemas
Descripción del foro: Proyectos ADP & Sql Server, Mysql& Access, MSDE
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83911
Fecha de impresión: 15/Diciembre/2019 a las 11:13


Tema: Celda Excel en campo Access
Publicado por: Capasio
Asunto: Celda Excel en campo Access
Fecha de publicación: 20/Agosto/2018 a las 18:34
Saludos a todos
Necesito que una tabla Access tenga un campo que me muestre el contenido de la celda $A$1 de un fichero Excel y que el campo se actualice cada vez que modifique la $A$1 en la hoja de cálculo.

Los "x" registro de la tabla de Access me tienen que mostrar la celda $A$1 de "x" hojas de cálculo distintas y actualizarse cada vez que modifique una de las Excel.

Ahora mismo en la tabla Access tengo un campo con un hipervínculo a cada Excel.

Aviso, se muy poquito de programación en Access y supongo que hacer esto si se puede no será fácil para novatos. Así que os ruego paciencia conmigo.
Gracias de antemano.



Respuestas:
Publicado por: lbauluz
Fecha de publicación: 21/Agosto/2018 a las 02:28
En ese caso lo más fácil es que crees una macro en Excel que cada vez que se modifique la celda haga un update en esa tabla.

Luis


-------------
El Búho es mi ídolo caido


Publicado por: Capasio
Fecha de publicación: 22/Agosto/2018 a las 10:09
Gracias por la idea. Seguro que funciona pero solo se crear macros por grabación.

Creo que mi problema es una simple cuestión de sintaxis con el generador de expresiones pero no lo he planteado bien.

Lo que quiero probar a ver si funciona (puesto que ya tengo para cada registro la ruta y el nombre de la hoja de cálculo en el campo "hipervínculo") es a través de una consulta, crear un campo calculado que me devuelva el contenido de la celda $A$1 de la hoja "hoja1" de la Excel cuya ubicación y nombre está contenida en el campo "hipervínculo".

Gracias. 


Publicado por: fcoval
Fecha de publicación: 24/Agosto/2018 a las 08:10
Publicado originalmente por Capasio Capasio escribió:

Lo que quiero probar a ver si funciona (puesto que ya tengo para cada registro la ruta y el nombre de la hoja de cálculo en el campo "hipervínculo") es a través de una consulta, crear un campo calculado que me devuelva el contenido de la celda $A$1 de la hoja "hoja1" de la Excel cuya ubicación y nombre está contenida en el campo "hipervínculo".


Lo que te indica el compañero es lo mas práctico.

Pero puesto a probar lo que dices...

Supongamos que tienes una TABLA con dos campos llamados "Ruta" y otro "Fichero"

Creamos esa CONSULTA basada en esa tabla y donde llamamos a la funcion
TraerDatoExcel([Ruta] & [Fichero])


Y en un módulo la función

Cita

Function TraerDatoExcel(RutaFicheroExcel) As String

    Dim xls As Object, ValorCelda As String
    Set xls = CreateObject("Excel.Application")
    
    xls.Workbooks.Open (RutaFicheroExcel)
    ValorCelda = xls.Worksheets("Hoja1").Range("A1")
    Debug.Print ValorCelda
    TraerDatoExcel = ValorCelda

    xls.Quit
    Set xls = Nothing
    
End Function





Publicado por: Capasio
Fecha de publicación: 27/Agosto/2018 a las 10:09
fcoval: Le has dado de lleno. Funciona perfectamente. Es justo lo que necesitaba.

Muchísimas gracias!!!



Imprimir página | Cerrar ventana