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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



  • Posts

    • Mauricio_ODN te agradezco la colaboración de verdad, la idea que pones en si, sí funciona, pero eso me obligaría a utilizar hojas y celdas y no es lo que quiero, es solo que lo que yo necesito hacer es que el proceso se realice dentro del textbox o a nivel de código y no en la lectura dentro de la hoja, es decir; sin utilizar celdas ni hojas, si no que se haga dentro del textbox el proceso de "reconocimiento" del texto como tal, no se si me doy a explicar. ¿Podrias ayudarme una vez mas con eso, mi estimado experto?. Gracias de antemano  
    • Hola @Marcelo Una vía rápida es reemplazar: Donde en buscar colocas un espacio y en reemplazar no colocas nada. Nos comentas.  
    • Buenas tardes tierra_pampa, Gracias por conestarme. Si es diferente el documento ya que no lo voy  a utilizar solo yo. Ahora si, me di cuenta del error que habia. Datos guardados 2 veces. Que tengas un buen día y suerte en el trabajo. Nos mantendremos en contacto. Saludos,
    • Hola @joselica Creí que no iba a tener tiempo antes de salir al trabajo, pero siempre hay que intentarlo...jajaja Aquí te dejo un nuevo archivo modificado en sus registros duplicados (hice una copia de la hoja y dejé la hoja original con los errores señalados para que puedas ver cual pudo ser el error al cargar) Por favor, revisa y comenta tus impresiones. Suerte!   ae20200707_post43704_LISTADO DESAYUNOSv4.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy