2

Estoy haciendo una macro que busca registros en una tabla de access desde excel, el unico problema que tengo es que me busca solo el dato de la primera celda del rango de valores que debe recorrer haciendo el mismo procedimiento de busqueda de registros, como puedo solucionar esto? les agradecería me brindaran su ayuda a mejorar esta macro y cumplir con el proposito que ya les describí, estoy utilizando la siguiente macro:

Sub consultarAccess()
    Dim cn As Object
    Dim datos As Object
    Dim ConsultaSql  As String
    Dim conexion As String
    Dim cont As Long
    Dim i, j
    Dim MiRango As String
    
    Set cn = CreateObject("ADODB.Connection")
    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
               "Data Source=C:\Users\Hp\Desktop\VINCULACION\INSUMOS\SIGMOVILIDAD_2012.mdb"
    cn.Open conexion
    
    Uf = Range("A" & Rows.Count).End(xlUp).Row
    For i = 10 To Uf
     MiRango = Range("A" & i)
     ConsultaSql = "Select * from CAT_DOMINIO_REFERENCIA where INTERNO_DOMINIO = " & MiRango
    Next i

    With Worksheets("VH")
    Set datos = cn.Execute(ConsultaSql)
    datos.MoveFirst
    j = 10
     For cont = 10 To Uf
      Do While Not datos.EOF Or datos.BOF
        .Range("B" & cont) = datos.Fields("DESCRIPCION_DOMINIO")
        .Range("C" & cont) = datos.Fields("PALABRA_CLAVE")
        cont = cont + 1
        datos.MoveNext
      Loop
     Next cont
    End With
    
    datos.Close
    Set datos = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Los datos quen tengo los tengo apartir de la celda A10 de la siguiente forma: introducir la descripción de la imagen aquí

Como se muesta en la imagen en la columna A desde la fila 10 en adelante estan los datos de consulta desde excel hacia una base de datos de access (un rango de datos del 1 al 7989), y adyacentes a estos valores de busqueda (celdas B10 y C10) se encuentra el resultado de la macro que comparto anteriormente, es decir el procedimiento solo me busca el primer valor que en este caso es la celda con valor de 1.

11
  • 1
    Llevate todos los valores del rango a una matriz, y haz un bucle que repita los pasos, cambiando la matriz. O directamente haz un bucle.
    – Esei
    Commented el 31 ago. 2020 a las 19:47
  • 1
    tienes ya un bucle FOR, donde vas asignando el valor de MiRango Mete antes del bucle la parte en la que defines la conexión. Mete dentro del bucle la parte en la que defines el sql, y haces el volcado de datos, y limpias el objeto datos. Y finalmente, después del bucle, mete el cerrar la conexión a la base de datos
    – Esei
    Commented el 2 sept. 2020 a las 20:29
  • 1
    Sobre matrices bidimensiones en VBA, puede servirte esto: es.stackoverflow.com/a/186012/74355
    – Esei
    Commented el 2 sept. 2020 a las 20:30
  • 1
    Pon un ejemplo de cómo tienes los datos, y cómo deberían quedar, porque por lo que veo, por cada celda de A vuelcas más de una fila
    – Esei
    Commented el 2 sept. 2020 a las 20:37
  • 1
    puede ser que simplemente este mal tu query? no podes hacer where INTERNO_DOMINIO = rango.. sql no funciona asi, si no que si vos queres revisar contra un rango tenes que usar in, pero los valores deben estar separados por coma, y no es como excel devuelve un rango... o sea, simplemente no estas buscando todos los valores que vos queres...
    – gbianchi
    Commented el 2 sept. 2020 a las 21:01

1 respuesta 1

2
+50

No estoy seguro de si va a funcionar, pero te dejas la query fuera del bucle que exportas, con lo cual, exportas solo una vez.

Prueba esto. No creo que sea perfecto, pero a lo mejor te vuelca algo más y lo vemos. A ver si esto puedes adaptarlo

Dim cn As Object
Dim datos As Object
Dim ConsultaSql  As String
Dim conexion As String
Dim i As Long, j As Long
Dim MiRango As String

Set cn = CreateObject("ADODB.Connection")
conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
           "Data Source=C:\Users\Hp\Desktop\VINCULACION\INSUMOS\SIGMOVILIDAD_2012.mdb"
cn.Open conexion

Uf = Range("A" & Rows.Count).End(xlUp).Row

For i = 10 To Uf
    MiRango = Range("A" & i).Value
    ConsultaSql = "Select * from CAT_DOMINIO_REFERENCIA where INTERNO_DOMINIO = " & MiRango
    
    Set datos = cn.Execute(ConsultaSql)
    datos.MoveFirst
    
    With Worksheets("VH")
        j = .Range("B" & .Rows.Count).End(xlUp).Row + 1 'primera fila libre en columna B de hoja VH
        
        Do While Not datos.EOF Or datos.BOF
            .Range("B" & j) = datos.Fields("DESCRIPCION_DOMINIO")
            .Range("C" & j) = datos.Fields("PALABRA_CLAVE")
            datos.MoveNext
            j = j + 1
        Loop
    End With
    
    datos.Close
    Set datos = Nothing
Next i


cn.Close
Set cn = Nothing

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.