Exportar Datos Excel a Access sin duplicados

[GR77]

Saludos a todos

Tengo un archivo de excel con la macro para exportar a access funciona bien, pero gustaría que antes de que grabe los datos en access, vefique 3 campos (Id, Nombre, Codigo) si ya existen que no los inserte, sería genial que en una columna "E" si ya existe el registro en la tabla de access ponga "Ya existe" y grabe solo los nuevos registros. 

Agradezco de antemano su apoyo y/o sugerencias

Saludos

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Borré el anterior mensaje porque se me escapó información en la hoja 2 que es confidencial y nada tenia que ver con la pregunta. Adjunto de nuevo los archivos

Gracias Antoni por la observación (¡Atención! He eliminado la hoja Hoja2 para poder subir el archivo.)

Antoni gracias por tu ayuda ya hice pruebas y anda muy bien la macro, subo la respuesta de Antoni por si alguien mas le pueda servir.

ikanni gracias por tu ayuda, al correr la macro me marca un error, adjunto archivo con la macro y la imagen del error.

Saludos y excelente día

access.rar ExportarAccessAntoni.xlsm ExportarAccess ikanni.xlsm

[Abraham Valencia]

Hola

Para que no tome en cuenta los duplicados, debes variar tu cadena SQL y combinar el Insert Into con, por ejemplo, Not In. Mira por aquí:

Enlace

Ojo, no importa que ahí se hable de SQL Server, lo importante son las instrucciones SQL.

Saludos

[Antoni]

Solo tienes que añadir condiciones al Select Count.

   sql = "select count(*) from Tabla1 where " & _
            "Id=" & Cells(x, 1).Value & " and " & _
            "Nombre=" & "'" & Cells(x, 2).Value & "' and " & _
            "Codigo=" & "'" & Cells(x, 3).Value & "'"

 

[GR77]

avalencia muchas gracias por tu aporte

Antoni muchas gracias por tu aporte

Gracias a todos

Tema solucionado

Saludos

[GR77]

Saludos Antoni, disculpa que te moleste pero si modifico el Select Count como lo sugieres, también se modifica ésta parte ????

If rs.GetRows(1)(0, 0) = 0 Then 'No existe

porque con unos 6500 registros algunos registros si los duplica

Agradezco de antemano tus comentarios

Saludos

[Antoni]

En 14/4/2020 at 5:40 , GR77 dijo:

Saludos Antoni, disculpa que te moleste pero si modifico el Select Count como lo sugieres, también se modifica ésta parte ????

If rs.GetRows(1)(0, 0) = 0 Then 'No existe

porque con unos 6500 registros algunos registros si los duplica

Agradezco de antemano tus comentarios

Saludos

NO, esta instrucción pregunta por la cantidad de registros recuperados del Select Count.