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

Access creo que puede importar directamente de excel, si no te funciona bien
siempre puedes optar por un "medio estandar" , de excel pasas a csv (fichero
ascii separado por comas) y de ahi importas a access

___________________________
Dani Castillo

Mis Fotos:
http://picasaweb.google.com/dcdani
___________________________
"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

Bueno amigo te podre decir que para importar sencillamente tablas de
excel a acces es mas facil de lo que parece, solo tienes que estar en
Excel y ahi en le menu insertar le das en Definir, luego Nombre y ahi
te pide el rango de celdas de los datos, luego le pones un nombre y le
das Aceptar, ahora andate a Access y ahi le das Archivo, Obtener datos
extenos y le das importar, luego te sale una ventana donde le tienes
que dar tipo de archivo Excel y aparecen todos los archivos de excel y
el nombre del archivo donde esta la informacion. luego le das aceptar
en el archivo y te sale una ventana donde le das mostrar rangos con
nombres y listo ahi esta el nombre que le distes en Definir nombre de
excel y ya luego sigues los pasos y tus datos estan listo en Access

Carlos Espinoza








Dani Castillo ha escrito:

Access creo que puede importar directamente de excel, si no te funciona bien
siempre puedes optar por un "medio estandar" , de excel pasas a csv (fichero
ascii separado por comas) y de ahi importas a access

___________________________
Dani Castillo

Mis Fotos:
http://picasaweb.google.com/dcdani
___________________________
"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
>