Jump to content
Sign in to follow this  
smartacm

Acceso a Datos Access a Excel

Recommended Posts

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!

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy