TRASPASO DE DATOS DE EXCEL A UNA BASE DE DATOS DE ACCES - VB-MUNDO

ROBERTOJC · #1 (**permalink**) 11-04-2006, 21:30:29

COMO PUEDO PASAR DATOS DE UNA PLANILLA DE EXCEL A UNA BASE DE DATOS DE ACCES, O SEA TENER A LA PLANTILLA DE EXCEL COMO INGRESO Y QUE ME PASE TODOS LOS DATOS A UN ACCES

J.M.Movilla · #2 (**permalink**) 11-04-2006, 23:42:15

Busca en nuestro Buscador (botón Buscar...) "Excel Access" (ambas palabras)... Tienes muchos mensajes.
Y si vas a la Sección de Trucos, allí tienes también códigos al respecto.

ROBERTOJC · #3 (**permalink**) 17-04-2006, 20:15:40

Cita:

Empezado por J.M.Movilla

Busca en nuestro Buscador (botón Buscar...) "Excel Access" (ambas palabras)... Tienes muchos mensajes.
Y si vas a la Sección de Trucos, allí tienes también códigos al respecto.

GRACIAS "MAESTRO"

J.M.Movilla · #4 (**permalink**) 18-04-2006, 00:12:44

No tienes nada que agradecer, ni tienes que llamarme "Maestro" porque no lo soy. Pero lo que sí tienes que hacer es "NO GRITAR"... O es que no sabes que el escribir todo con mayúsculas se traduce como dar gritos?

ROBERTOJC · #5 (**permalink**) 28-04-2006, 22:38:18

Bueno no lo sabia, y aqui en la argentina cuando te dicen "Maestro" es como decirte amigo.

Saludos "Maestro"

J.M.Movilla · #6 (**permalink**) 29-04-2006, 00:09:47

Entonces sí que te agradezco que me distingas con el apelativo de "Maestro", porque sí que lo soy...

ROBERTOJC · #7 (**permalink**) 10-05-2006, 21:14:59

Jose Maria te adjunto el archivo con el ejemplo para que veas si me puedes dar una mano, ya que no lo puedo hacer funcionar, me debe faltar alguna sentencia.

'Creamos las instancias a nuestros objetos:
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Cells(1, 1).Value & ";"
cn.Open

Cuando clickeo el boton de pasar datos a bd de acces me sale error y que esta en c.Open. Pregunta, ¿ Puede ser que me falte poner la direccion donde esta la base de datos ejemplo.mdb?

Desde ya muchas Gracias

Roberto

J.M.Movilla · #8 (**permalink**) 11-05-2006, 00:06:10

Por lo que veo en tu código, no has debido leer ninguno de los ejemplos que existen relacionados con el paso de una hoja Excel a una base de datos Access...

Mira este ejemplo que te paso, a ver si con ello comprendes como se realiza el traspaso. Ya nos contarás.

ROBERTOJC · #9 (**permalink**) 18-05-2006, 18:00:44

Cita:

Empezado por J.M.Movilla

Por lo que veo en tu código, no has debido leer ninguno de los ejemplos que existen relacionados con el paso de una hoja Excel a una base de datos Access...

Mira este ejemplo que te paso, a ver si con ello comprendes como se realiza el traspaso. Ya nos contarás.

José disculpa mi experiencia, pero no se como manipular tu ejemplo, por que abro el archivo de excel y estan las dos columnas, si, le agrego mas datos a las columnas y abro el acces no me pasa eso datos agregados. Quizas no entienda el mecanismo !Disculpa mi ignorancia!. Cuando voy al editor del excel no tiene ningun codigo. En el ejemplo que postie hay un codigo que no me funciona cuando quiero pasar los datos a excel desde el boton que lo tengo en la hoja. No se que falta.

Gracias
Saludos
Roberto

J.M.Movilla · #10 (**permalink**) 18-05-2006, 22:14:49

Cita:

Empezado por ROBERTOJC

José disculpa mi experiencia, pero no se como manipular tu ejemplo, por que abro el archivo de excel y estan las dos columnas, si, le agrego mas datos a las columnas y abro el acces no me pasa eso datos agregados. Quizas no entienda el mecanismo !Disculpa mi ignorancia!. Cuando voy al editor del excel no tiene ningun codigo. En el ejemplo que postie hay un codigo que no me funciona cuando quiero pasar los datos a excel desde el boton que lo tengo en la hoja. No se que falta.

Mira, no tienes que abrir el archivo de Excel, sino hacer doble_clic sobre el fichero Project1.vbp. Con ello cargas el proyecto de Visual Basic 6.0. Ahí es donde verás el código... Y ahí es donde deberás estudiar el funcionamiento de este proceso.

Te aconsejo que ejecutes este proyecto pulsando la tecla [F9] sobre la línea que dice Set excel_app = CreateObject("Excel.Application"). De esa forma cuando lo ejecutes y pulses el commandbutton [LoadData] se parará la ejecución y podrás observar cómo van realizándose las diversas sentencias a medida que tú pulses [F8].

Si lo que quieres es hacer pruebas con más de dos columnas, tendrás que abrir la base de datos de Access XlsToMdb.mdb y modificar su estructura, añadiendo todos los campos que vayas a incorporar en las columnas de Excel. Ten en cuenta que se trata de un código para que aprendas a pasar datos de Excel a Access; tú deberías cambiar el código para que acepte el paso las columnas que te interese, pero es un asunto un tanto complejo, porque deberán coincidir el tipo de datos de las columnas de Excel con el campo de Access para que no te dé error. Así que mejor hazlo de forma semejante al ejemplo, con una base de datos preparada para recibir las columnas que tenga la hoja de Excel.