Jump to content

ezealvarez12

Members
  • Content Count

    8
  • Joined

  • Last visited

About ezealvarez12

  • Rank
    Newbie
  • Birthday 03/19/1990
  1. entonces si cuando armo la macro yo referencio el activex data object con version anterior (que se que lo tienen los excel de las otras personas) podria funcionar en las otras maquinas? yo porbe si sacando la referencia esa que dice DDL funciona y si lo hace. saludos.
  2. Ya probe y funciona perfecto!! gracias. Ahora me queda por ver cual es la razon del problema que tengo cuando ejecuto el excel desde otra computadora que me aparece un arror que dice que no se encuentra el proyecto o la consulta. Ya probe con lo que me dijo más arriba joshua pero se dio el caso que en referencias no aparece Microsoft ActiveX Data Object 2.5 Library (o posteriores), y no se si será eso o que. Gracias.
  3. Hola, primero muchas gracias por responder. Segundo, probe poniendo esa sentencia, al primer intento (o sea cuando exporto los nuevos datos por primera vez) me funciona, borra la tabla anterior y carga la nueva. Quise hacer una prueba mas exhaustiva y agregue nuevos datos y volvi a exportar, en este intento no se porque pero no me agrega los nuevos datos (con lo cual entiendo que no me borra la tabla anterior y me carga la nueva). te paso el codigo por las dudas. Const dataSource As String = "provider=Microsoft.ACE.OLEDB.12.0;" _ & "data source=\\Terarsvcfs01\sarareas\DINE\Visitas a Clientes\baseclientesPrueba.mdb" Const tablaName As String = "Info_Visitas" Sub ExportarDatosAccess() Dim cn As ADODB.Connection, rs As ADODB.Recordset, fila As Long Set cn = New ADODB.Connection cn.Open dataSource 'cn.Execute "Delete from Info_Visitas", , adCmdText Set rs = New ADODB.Recordset cn.Execute "Delete from Info_Visitas", , adCmdText rs.Open tablaName, cn, adOpenKeyset, adLockOptimistic, adCmdTable Sheets("Info Visita").Select fila = 5 ' la primer fila en la hoja despues de los encabezamientos Do While Len(Cells(fila, 1)) > 0 With rs .AddNew .Fields("código") = Range("A" & fila).Value .Fields("V/R") = Range("B" & fila).Value .Fields("Fecha") = Range("C" & fila).Value .Fields("MES") = Range("D" & fila).Value .Fields("N°") = Range("E" & fila).Value .Fields("Nombre") = Range("F" & fila).Value .Fields("Gerente") = Range("G" & fila).Value .Fields("Jefe Ventas") = Range("H" & fila).Value .Fields("Insp Comercial") = Range("I" & fila).Value .Fields("Otros") = Range("J" & fila).Value .Fields("Participante Cliente") = Range("K" & fila).Value .Fields("Tema 1") = Range("L" & fila).Value .Fields("Tema 2") = Range("M" & fila).Value .Fields("Tema 3") = Range("N" & fila).Value .Fields("Tema 4") = Range("O" & fila).Value .Fields("Tema 5") = Range("P" & fila).Value .Fields("Pendientes") = Range("Q" & fila).Value .Update End With fila = fila + 1 Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub Muchas gracias por tu ayuda.
  4. Joshua una pregunta, primero te explico como es que hago uso de este codigo para exportar a access y despues te planteo el problema que me surge. Yo hice un archivo en donde se cargan datos, el mismo es igual para varias personas, quienes cargan diferentes cosas pero con las mismas columnas, es decir, cambia el contenido de las celdas de información nomas. La idea es que cada persona cargue la información y la exporte (a través de la macro que utiliza ese código) a una base de datos access, la cual se encuentra guardada en una carpeta compartida en red. Todas estas personas tienen los permisos necesarios para acceder y modificar este archivo access. El problema me surgio cuando probando el archivo (en mi computadora funciona perfectamente) desde la computadora de una de esas personas, cuando va a exportar los datos le salta un error que dice: "no se encuentra el proyecto o la biblioteca". Al principio creí que como esta persona tiene una versión office 2003 y yo tengo una 2010 cambiando el tipo de motor en el código del archivo de su computadora iba a resolverlo. Pero la realidad fué que me dió el mismo error y no se a qué se refiere la verdad. Tal vez vos sepa a qué se refiere y puedas explicarmelo mejor. Desde ya muchas gracias, con ese código que me pasaste pude aprender a cómo exportar desde excel a access. Saludos!
  5. Gente muchas gracias, por el momento el primer código me sirvió. tengo que ver si tengo que cambiar algún detalle de mi proyecto. Desde ya muchas gracias. Descubri este foro recientemente buscando como poder solucionar este problema, y lo recorrí y la verdad que muy bueno! Suerte!
  6. Hola, tengo un problema. Necesito exportar a travez de una macro los datos de una tabla de excel a una tabla de access (ambas tablas tienen las mismas columnas). He buscado codigos para poder hacer el procedimiento pero como soy novato no soy capaz de adaptarlo a mis necesidades. Lo que necesitaria es un codigo base que me sirva de estructura para exportar cierto rango de celdas de una hoja de excel a una tabla de access, donde yo tenga que cambia la ruta de conexión y el nombre de las tablas. desde ya muchas gracias.
×
×
  • Create New...

Important Information

Privacy Policy