** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Conectar Excel con Access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoConectar Excel con Access

 Responder Responder
Autor
Mensaje
webogol Ver desplegable
Nuevo
Nuevo


Unido: 10/Marzo/2010
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Tema: Conectar Excel con Access
    Enviado: 22/Septiembre/2010 a las 12:24
Hola foreros!!

Lo que quiero es mostrar en unos combobox datos de una tabla access, pero no se crear la cadena de conexión.

Un saludo.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5462
Enlace directo a este mensaje Enviado: 22/Septiembre/2010 a las 13:46
Depende de tu versión de Excel.
 
En E2007: Ficha DATOS > Obtener datos externos ...
 
Si te apoyas en la grabadora de macros obtendrás el código desde el que podrás partir.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
webogol Ver desplegable
Nuevo
Nuevo


Unido: 10/Marzo/2010
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 22/Septiembre/2010 a las 15:35
Utilizo excel 2003. Cómo funcionan las macros??

Un saludo.


Editado por webogol - 22/Septiembre/2010 a las 15:55
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9227
Enlace directo a este mensaje Enviado: 22/Septiembre/2010 a las 19:52
Herramienta--> Macros--> Grabar nueva macro
 
Luego, haces lo que necesitas y cuando termines, finalizas la grabacion de la macro.
 
Para finalizar editas la macro y ve que es lo que ha guaraddo.
 
Saludos !
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5462
Enlace directo a este mensaje Enviado: 22/Septiembre/2010 a las 21:26
Publicado originalmente por webogol webogol escribió:

... Cómo funcionan las macros??
 
Ouch Vaya me precipité.
 
Cuando nombraste ComboBox deduje (por mi cuenta) que se trataba de un Formulario en VBA.
 
Si lo que pretendes es mostrarlos en ComboBox que están directamente en la hoja, no te preocupes de como funcionan las macros ya que no las necesitas.
 
Para importar los datos desde Acces (no tengo la versión 2003 ni Access), debes buscar en tus menús Importar datos. Creo recordar que estaba en el menu Datos.


Editado por AnSanVal - 22/Septiembre/2010 a las 21:27
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
beimar24 Ver desplegable
Asiduo
Asiduo


Unido: 11/Diciembre/2006
Localización: Colombia
Estado: Sin conexión
Puntos: 341
Enlace directo a este mensaje Enviado: 23/Septiembre/2010 a las 19:44
mira si te sirve esta cadena de conexion lo vinculas a tu combobox y listo

Private Sub Workbook_Open()

Dim strCadena As String
Dim sql As String
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Excel As Object
Dim Libro As Object
Dim Hoja As Object


&&&&'driver y ruta para conectarme a una base de datos de access 2003
&&&&&conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
&&&&&"Data Source=\\jupiter\webcatal\abstracts.mdb;"
&&&&&
&&&&&'linea para traer los datos de la base de datos que a la que me conecte en la parte de arriba
&&&&&sql = "select * from abstracts;"
&&&&&'utilizo el recorset
&&&&&Set rst = New ADODB.Recordset
&&&&&'le paso la consulta a un almacenador o recorset y los atributos adOpenDynamic, adLockPessimistic esto con el fin que se pueda recorrer de adelante hacia atras y vic
&&&&&rst.Open sql, conn, adOpenDynamic, adLockPessimistic
&&&&&'si el recorset esta vacio en el princio o en el final entonces
&&&&&If rst.EOF = False And rst.BOF = False Then
&&&&&'muevase al primer registro
&&&&&&& rst.MoveFirst
&&&&&&& 'creo un archivo de excel con los datos del recorset
&&&&Set Excel = CreateObject("Excel.Application")
&&&&'creo el libro
&&&&Set Libro = Excel.Workbooks.Add
&&&&'creo todas las celdas
&&&&Set Hoja = Libro.Worksheets(1)
&&&&'le digo que en la celda numero a1 ponga un titulo con llamado codigo web
&&&&Hoja.Range("A1").Value = "Codigo_web"
&&&&'le digo que en la celda numero a1 ponga un titulo con llamado titulo
&&&&Hoja.Range("b1").Value = "titulo"
&&&&'a partir de la celda b2 copie todo lo que tenga el recorset
&&&&Hoja.Range("A2").CopyFromRecordset rst
&&&&
&&&&&&' si todo a salido bien lanze un mensaje
&&&&&&' MsgBox rst!codigo_web & Chr(13) & rst!reseña, vbInformation, "Conexión a Access funcionando!"
&&&&&&'cierre el si
&&&&&&End If
&&&&'cierre el recorset
&&&&&rst.Close
&&&&'limpie el recorset
&&&&Set rst = Nothing
&&&&'cierre la conexion
&&&&conn.Close
&&&&Set conn = Nothing
&&&&
End Sub

Espero te Sirva
TODO LO PUEDO EN JESUCRISTO QUE ME FORTALECE, JESUS EL MISMO AYER HOY Y SIEMPRE
Arriba
webogol Ver desplegable
Nuevo
Nuevo


Unido: 10/Marzo/2010
Estado: Sin conexión
Puntos: 0
Enlace directo a este mensaje Enviado: 27/Septiembre/2010 a las 12:13
Ya he cargado datos en un combobox1, ahora quiero que se cargue otro combobox2 dependiendo de lo seleccionado en el primer combobox1.
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5462
Enlace directo a este mensaje Enviado: 27/Septiembre/2010 a las 13:17
Esa es consulta para un hilo nuevo.
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable