Automatizar la Importación de datos de Excel a Access

Siguiendo este código que encontré en una respuesta a un tema similar:

Private Sub Comando47_Click()
Dim XlsRuta As String
Dim miSql As String
'Indicamos la ruta del Excel
XlsRuta = "C:\Plantillas_Gestoria\DIRECTORIO_CACS_JUN16.xlsx"
'Importamos la hoja de cálculo a la tabla TExcel
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, "TExcel", XlsRuta, True
'Definimos la consulta de datos anexados
miSql = "INSERT INTO tabCacs (JefeCac, CorreoJefe, TelefonoJefe, SupervisorAnalista, CorreoSupervisor, Dirección)"
miSql = miSql & " SELECT TExcel.JefeCac, TExcel.CorreoJefe, TExcel.TelefonoJefe, TExcel.SupervisorAnalista, TExcel.CorreoSupervisor, TExcel.Dirección  FROM TExcel"
'Ejecutamos la consulta
DoCmd.SetWarnings False
DoCmd.RunSQL (miSql)
DoCmd.SetWarnings True
'Borramos la tabla TExcel
DoCmd.DeleteObject acTable, "TExcel"
'Lanzamos un mensaje de que todo ha ido bien
MsgBox "Datos anexados correctamente", vbInformation, "OK"
End Sub

De que forma podría hacerle en este caso:

La tabla a donde quiero imprtar los datos del excel tiene más campos que los que tiene el documento de excel. Ej. Mi tabla en Access se llama tbCacs y tiene los sig campos. Cac, TipoInmueble, JefeCac, TelJefe, CorreoJefe, SupervisorAnalista, CorreoAnalista, TelAnalista, Arredador, Vigencia, Dirección... (por nombrar algunos, ya que son más).

En cambio el documento de excel, solo tiene los campos de Cac, JefeCac, TelJefe, CorreoJefe, SupervisorAnalista, CorreoAnalista, Dirección. Como se pueden dar cuenta, mi excel tiene menos campos que la tabla de Access, por ende no coinciden tabla-excel al momento de hacer la importación .

Mi duda es como hacerle para que la información del excel se anexe solamente a los campos que corresponden. Ej. JefeCac>>>>JefeCac TelJefe>>>TelJefe ... Etc.. Etc.. Etc brincándose o anulando los campos que no correspondan al nombre del campo.

Espero puedan ayudarme ya que hice el código de arriba y no me agrega los datos a la tabla que quiero.

1 Respuesta

Respuesta
2

En el Insert Into, en el primer paréntesis pones únicamente los campos a los que quiere importar, y en el SELECT siguiente pones solo los campos que quieres importar de la tabla auxiliar a la que vuelvas el contenido del excel

No comprendo bien lo que me quieres dar como solución Sveinbjorn,¿podrías explicarme mejor?

Te lo agradezco!

En esta parte del código:

'Definimos la consulta de datos anexados
miSql = "INSERT INTO tabCacs (JefeCac, CorreoJefe, TelefonoJefe, SupervisorAnalista, CorreoSupervisor, Dirección)"
miSql = miSql & " SELECT TExcel.JefeCac, TExcel.CorreoJefe, TExcel.TelefonoJefe, TExcel.SupervisorAnalista, TExcel.CorreoSupervisor, TExcel.Dirección  FROM TExcel"

cambias la SQL para usar sólo los campos que te interesan, según lo que te explicaba antes.

Por ejemplo, si solo quisieras importar a los campos JefeCac y CorreoJefe:

'Definimos la consulta de datos anexados
miSql = "INSERT INTO tabCacs (JefeCac, CorreoJefe)"
miSql = miSql & " SELECT TExcel.JefeCac, TExcel.CorreoJefe FROM TExcel

En el siguiente enlace tienes explicado (en ingles) cómo se construye una SQL del tipo INSERT INTO SELECT, y puedes practicar con la demo que tiene: http://www.w3schools.com/sql/sql_insert_into_select.asp 

Entonces si te entendí bien, y los campos que tengo en el Insert Into, son los que me interesan.

Otra pregunta: como puedo indicarle al código, ¿qué quiero qué se importe unicamente la información al registro que se esta mostrando en el formulario? Osea, que no actualice todo si no unicamente al registro que esta seleccionado y mostrado en la ventana del formulario

El código que tienes no "actualiza" los registros, sino que "añade" registros nuevos (por eso se usa la SQL INSERT INTO)

Si lo que quieres hacer es añadir registros del excel relacionados con el registro activo del formulario, has de añadir un WHERE al SELECT, indicar un campo de la tabla que sea único para cada registro e igualarlo al valor que tenga el formulario en ese momento.

Por ejemplo, si el campo Cac fuera único para cada registro, y además un número, sería así:

'Definimos la consulta de datos anexados
miSql = "INSERT INTO tabCacs (JefeCac, CorreoJefe)"
miSql = miSql & " SELECT TExcel.JefeCac, TExcel.CorreoJefe FROM TExcel WHERE Cac=" & Me.Cac

Si Cac fuera de texto, la parte del WHERE te quedaría:

... WHERE Cac='" & Me.Cac & "'"

Si quieres "actualizar" registros existentes, has de usar una SQL del tipo UPDATE (en el enlace anterior tienes explicaciones y ejemplos de este tipo)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Importar datos mediante código desde excel a acees

Quisiera poner el código en un botón en un formulario, para importar datos desde excel de una ruta especifica y nombre especifico, los anexe a una tabla existente EJ 1 hay una tabla en access llamada PAGOS con los siguientes campos fecha, egreso,...
1 respuesta

Importar datos Excel a Access con opción a elegir el archivo de cualquier ruta.

Espero puedan ayudarme. Necesito importar datos excel desde un formulario access hacia una tabla a través de un comando. Encontré este buen aporte de un experto, pero quiero cambiarlo para elegir el archivo excel de cualquier ruta. Gracias de...
1 respuesta

Copiar registros entre tablas a través de formularios

Tengo 2 tablas: Tabla_Temporal y Tabla_Cierre ambas con los mismos campos (Nombre, Apellido, Edad, Área, Tipo de Trabajo). Tengo 1 formulario : Formulario_Tareas el cual tiene los campos de registro de empleados. En el formulario se puede seleccionar...
1 respuesta

Importar anexando registros desde una tabla externa a otra

Se me ha planteado un problema. Quiero importar los registros de una tabla que esta en un archivo mdb externo a una tabla en otro archivo de access mdb (que tendría abierto) anexando los registros que importo a los ya existentes. Lo mas cercano que...
2 respuestas

Consulta de datos anexados con campo multivalor

Necesito de vuestra ayuda ya que me pidieron que consolidara varias bases de datos de access en una sola y después exportarlas en excel, trate de hacer una consulta de campos anexados para pasar todas la bases a una sola pero no contaba que hay...
1 respuesta

Inserción

Ada cierto tiempo quiero importar todos los datos de una tabla de otra bd a la bd que estoy trabajando. ¿Cómo puedo hacer para que solo me importe los datos nuevos(que en la importación anterior no existían)? Ejemplo: insert into...
2 respuestas

Agregar o pasar datos de un form y subform a otra 2 tablas

Agregar o pasar datos de un form y subform a otra 2 tablas A la comunidad de todoexpertos Concurro a sus conocimientos Necesito esta ayuda porque estoy trabajando en una escuela. ¿Como debo hacer hacer para que los datos dentro de un Formulario y...
2 respuestas

Grabar un formulario al clic de un botón

Estoy teniendo problema con el Botón Grabar. Tengo un formulario de Inscripciones que posee campos visibles para el ingreso de datos y 3 campos ocultos (Torneo - Nro - Fecha) que se completan del formulario Competencias del que proviene. Ahora bien,...
2 respuestas

¿Cómo copiar parte de los campos de datos de una tabla a otra?

Tengo dos tablas "comerciales" y "analistas". Me gustaría saber como copiar parte de los campos de un registro en otra tabla. Osea que cuando se pinche en un botón de la tabla de comerciales, se cree automáticamente un registro (con algunos campos)...
1 respuesta

Como Guardar varias filas con un solo Click?

Tengo una tabla de Citas con los campos Fecha_Cita, Hora_Inicio, Hora_Final y Cliente. Entonces quiero crear un formulario en el que se deba ingresar solo una vez la Fecha Cita, Cliente, Hora Inicio y Hora Final y se guarden "n" cantidad de filas...
2 respuestas