0

tengo una conexión conexión desde Excel con Ms Access definida en la siguiente línea:

Public Const con1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\co1140890727\Desktop\Proyecto\I&A-DataBase.accdb;Jet OLEDB:Database;"

Me gustaría poder asignar el DataSource a una celda en mi hoja de cálculo que contenga la ruta en texto. Algo como esto:

DBPath = Range("A1").Value
Public Const con1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath
1
  • ¿Y qué problema tienes? Commented el 24 jun. 2020 a las 15:05

1 respuesta 1

1

No sé si estoy 100% en lo cierto pero una constante no puede tener elementos variables, cómo en tu caso es el contenido de la celda. Has probado así?:

DBPath = Range("A1").Value
Public con1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBPath

Otra manera que a lo mejor te interesa más:

Public Const DBPath As String = "$AB$1"

Y luego en tú sub:

Sub conexion ()

   Dim con1 As String
   
   con1 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Range(DBPath).value

End Sub
3
  • Muchas gracias por tu respuesta. La segunda opción se acerca a lo que quiero hacer pero obtengo el siguiente error: -2147467259:No se pudo encontrar el archivo 'C:\Users\co1140890727\Documents\$B$17'. No sé si es por como tengo definida la ruta en la celda. Estoy usando la Celda B17 que contiene la ruta de la siguiente manera: "C:\Users\co1140890727\Desktop\Proyecto\I&A-DataBase.accdb;Jet OLEDB:Database;" Commented el 24 jun. 2020 a las 16:12
  • He modificado mi respuesta. Añade Range(DBPath).Value para que "saque" el valor de la celda y no la celda en si. A ver si te funciona.
    – dogwall
    Commented el 24 jun. 2020 a las 16:24
  • Funciona! Muchas gracias@dogwall!! Commented el 24 jun. 2020 a las 16:50

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.