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:
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.
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 objetodatos
. Y finalmente, después del bucle, mete el cerrar la conexión a la base de datos