Actualizar Excel a Acces

[Lekio88]

Hola, lo primero saludaros por este gran foro, y daros las gracias de antemano.
Tambien comentaros que he estado buscando pero no he visto nada, asi que os estaria muy agradecidos si me pudierais ayudar
Bueno aqui mi problema tengo varias pestañas en excel y quiero que cada una sea una tabla de access y segun vaya añadiendo nuevos datos al excel se actualicen en las tablas del access.
Muchas gracias

[Avellaneda]

Iniciado por Lekio88

Hola, lo primero saludaros por este gran foro, y daros las gracias de antemano.
Tambien comentaros que he estado buscando pero no he visto nada, asi que os estaria muy agradecidos si me pudierais ayudar
Bueno aqui mi problema tengo varias pestañas en excel y quiero que cada una sea una tabla de access y segun vaya añadiendo nuevos datos al excel se actualicen en las tablas del access.
Muchas gracias

Hola, para añadir los datos de una hoja Excel a una tabla Access:

Código:

 Dim cn As ADODB.Connection
    Dim BdAccess As String  ' Ubicación y nombre de la BD Access
    Dim TbAccess As String  ' Nombre de la tabla donde vamos a insertar el xls
    
    BdAccess = App.Path & "\BaseDeDatos.mdb"
    TbAccess = "[Tabla1]"
    Set cn = New ADODB.Connection
    ' Conexión ADO al Libro Excel
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source= " & App.Path & "\Libro1.xls;Extended Properties=Excel 8.0;"
        .CursorLocation = adUseClient
        .Open
    End With
    ' Añadir los registros a la Tabla.
    cn.Execute "INSERT INTO " & TbAccess & " IN '" & BdAccess & "' SELECT * FROM [Hoja1$]"

y así con cada una de las hojas.

Modifica, si procede, los datos marcados en rojo.