Acceso a Datos Access a Excel

Hola!

Les dejo un aporte para importar datos de Access a Excel!

Primedo deben de agregar la referencia "Microsoft ActiveX Data Object 2.8 Library"

Esto es en la opción Referencias del menú Herramientas en VB.

Sub importarDeAccess()
'Variables de la conección
Dim miConn As ADODB.Connection
Dim miRset As ADODB.Recordset
Dim miBase, miSQL As String
Dim miTabla As String
Dim misCampos As Long
Dim i As Long
'Colocar la ruta del archivo, en este caso la base
'Esta en la carpeta donde esta el archivo
miBase = ThisWorkbook.Path & "\" & "db.mdb"
'Nombre de la tabla del archivo Access
miTabla = "salarios_2003"
'Se crea y abre la conección
Set miConn = New ADODB.Connection
Set miRset = New ADODB.Recordset
miConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & miBase & ";"
'Se genera Consulta SQL
miSQL = "SELECT * FROM " & strTabla & ""
miRset.Open miSQL, miConn
'Se copian datos a la hoja
ActiveSheet.Cells(2, 1).CopyFromRecordset miRset
'Se copian los títulos de las Columnas
misCampos = miRset.Fields.Count
 For i = 0 To misCampos - 1
  ActiveSheet.Cells(1, i + 1).Value = miRset.Fields(i).Name
 Next
'desconectar
miRset.Close: Set miRset = Nothing
miConn.Close: Set miConn = Nothing
End Sub
[/CODE]

En realidad es bastante fácil una vez que se entiende cómo accede a los datos de acuerdo a las sentencias SQL que se realicen

La próxima subiré un ejemplo de lo que se puede hacer con ello!

Salu2!