Access - ing

Que tal a todos necesito de su ayuda para hacer funcionar esta rutina de vb en un módulo de excel para crear una función que traiga los datos desde una bd en access por medio de una referencia contenida en una celda de la hoja de calculo.

la rutina es:

Function traer1(ByRef o)
Dim BD As Database
Dim RSnombres As Recordset
Dim o As String
Set BD = OpenDatabase("C:\\Eventual\Sistema Moper\EST SALIDA1.mdb")
Set RSnombres = BD.OpenRecordset("Altas", dbOpenDynaset)
'o = Text1.Text
With RSnombres
'.MoveFirst
.FindFirst "Folio like '*" + o + "*'"
'Text1.Text = .Fields("Folio")
a = .Fields("Nombre del Empleado")
b = .Fields("Apellido Paterno")
c = .Fields("Apellido Materno")
traer1 = (a + " " + b + " " + c)
'traer1 = .Fields("Nombre del Empleado")
End With
End Function

esta rutina se pega en un módulo dentro del editor de vb de excel se guarda y solo se agrega en excel como una formula ej: =traer1(A1) en donde A1 es la celda que contiene el valor a buscar dentro de la bd

espero me puedan ayudar

Saludos.

Parece que hay un pequeño error en el código de la función que estás intentando utilizar. Aquí tienes una versión corregida de la función "traer1":


Para utilizar esta función en una celda de Excel, sigue estos pasos:

1. Abre el editor de Visual Basic en Excel presionando Alt + F11.
2. Inserta un nuevo módulo desde el menú "Insertar".
3. Pega el código de la función en el módulo.
4. Cierra el editor de Visual Basic.
5. En una celda de Excel, utiliza la fórmula `=traer1(A1)`, donde A1 es la celda que contiene el valor a buscar dentro de la base de datos de Access.

Asegúrate de ajustar la ruta del archivo de base de datos de Access en la línea `Set BD = OpenDatabase("C:\Eventual\Sistema Moper\EST SALIDA1.mdb")` para que coincida con la ubicación correcta de tu base de datos.

Ten en cuenta que es necesario tener instalado el controlador ODBC de Access para que la función pueda acceder a la base de datos. Si no lo tienes instalado, es posible que debas descargarlo e instalarlo en tu sistema.