Excel a Access

Hola.

Yo lo hice de esta forma porque la importación la tenía que hacer
periodicamente.

Pero si solo lo tienes que hacer una vez, desde Objectos -> tables -> botón
derecho -> importar - > tipo de archivo excel y etc...

Public Sub addDades4excel(taula As String, LLibreExcel As String)
Dim dbSource As Database
Dim rsSource As DAO.Recordset
Dim rsTarget As DAO.Recordset
Dim i As Integer
Dim iQuantCamps As Integer

On Error GoTo addDades4Excel_Err:

' Obrim Llibre
Set dbSource = OpenDatabase(LLibreExcel, False, False, "Excel
8.0;HDR=Yes;")
' Obrim fulla
Set rsSource = dbSource.OpenRecordset("SELECT * FROM [" & taula & "$]",
dbOpenSnapshot)

' Buidem la taula destí
DoCmd.RunSQL "DELETE * FROM " & taula
Set rsTarget = CurrentDb.OpenRecordset("SELECT * FROM " & taula,
dbOpenDynaset)
iQuantCamps = rsTarget.Fields.Count - 1

rsSource.MoveFirst
Do While Not rsSource.EOF
rsTarget.AddNew
For i = 0 To iQuantCamps
rsTarget.Fields(i) = rsSource.Fields(i)
Next i
rsTarget.Update
rsSource.MoveNext
Loop

rsTarget.Close

rsSource.Close
dbSource.Close


addDades4Excel_Ok:
Exit Sub

addDades4Excel_Err:
Call errGest
Resume addDades4Excel_Ok:

End Sub

Saludos

P.D.
Existe un foro especifico para Excel.
Supongo que te has confundido.



"nacho" escribió en el mensaje
news:

Hola amigos.
Tengo que hacer en Access unas tablas que tiene todo el contenido en
Excel.
Es posible importar a la base de datos toda esa info ?
Como hacerlo'
Muchas gracias
nacho