Cita:
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.
