VBA Excel Crear consultas SQL de Access a Excel

VBA Excel Crear consultas SQL de Access a Excel

   28 noviembre       Luis Reyes

---

En días pasados les compartí una macro para realizar conexiones SQL a bases de datos, hoy les voy a indicar como lo tenemos que hacer utilizando una base de datos de Access,

 Para que la macro funcione hay que seguir los siguientes pasos:

1. Abrir el editor Visual Basic para Aplicaciones (VBA).

2. Insertar un módulo.

3. Agregar la referencia "Microsoft ActiveX Data Objects 2.0 Library" en el menú herramientas del editor VBA, dar click en referencias.

3. Pegar el siguiente código en el módulo que se inserto:

Sub consulta_access()
Dim cn As ADODB.Connection, rs As ADODB.Recordset 'Declaramos las variables para realizar la conexión
Set cn = New ADODB.Connection 'creamos la conexión
    cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.Open "C:\users\Luis Reyes\TU_BASE_DE_DATOS.mdb" 'abrimos la base de Datos
Set rs = New ADODB.Recordset 'Obtenemos los registros de nuestra base de datos
    Sql = "SELECT usuarios FROM correos" 'creamos la consulta SQL
    rs.Source = Sql
    rs.ActiveConnection = cn ' hacemos referencia a nuestra conexión
    rs.Open 'abrimos la consulta
    Hoja1.Range("A2").CopyFromRecordset rs 'destino de nuestra consulta
    If rs.State <> adStateClosed Then
    rs.Close
    End If
    If Not rs Is Nothing Then Set rs = Nothing
    If Not cn Is Nothing Then Set cn = Nothing
Hoja1.Cell(1, 1).Value = "Encabezado 1"
End Sub

4. Reemplazar C:\users\Luis Reyes\TU_BASE_DE_DATOS.mdb por la ruta y el nombre de tu base de datos.

Descarga el Archivo