Insertar Datos de Excel a Access

[arieluko]

Hola a todos,

resulta que tengo una hoja en Excel con varias columnas las que debo insertar en una base de datos ya creada en Access, nosé como puedo lograr esto, alguién me podria ayudar? Les dejo un ejemplo de lo que quiero lograr.

Archivo Excel:

[TABLE=class: grid]

[TR]

[TD]ID_COL[/TD]

[TD]SUCURSAL[/TD]

[TD]FECHA_COL [/TD]

[/TR]

[TR]

[TD]987939[/TD]

[TD]101[/TD]

[TD]40907[/TD]

[/TR]

[/TABLE]

Base de datos Acces:

[TABLE=class: grid]

[TR]

[TD]ID_COL[/TD]

[TD]SUCURSAL[/TD]

[TD]FECHA_COL[/TD]

[/TR]

[TR]

[TD]987939[/TD]

[TD]101[/TD]

[TD]40907[/TD]

[/TR]

[TR]

[TD]987979[/TD]

[TD]1301[/TD]

[TD]40906[/TD]

[/TR]

[/TABLE]

*Una vez insertados los datos

Si hace falta más información me dicen. Gracias desde ya.

[joshua]

Saludos.

Chequea la siguiente pagina te sera de mucha utilidad para lograr lo que quieres.

Trabajar con ADO, DAO y Excel

Atte.

joshua

[arieluko]

Gracias, lo voy a chequear.

[arieluko]

esta bueno, pero la verdad me falta algún ejemplo ya hecho, hay otra forma de hacerlo más simple??

Saludos.

[joshua]

Saludos.

Adapta la siguiente macro a tus necesidades.

Const dataSource As String = "provider=microsoft.jet.oledb.4.0;" _
& "data source=C:\Bases\Base_Datos.mdb"
Const tableName As String = "Records"
Sub AgregarDatos()
' exporta los datos de la hoja activa a una tabla de Access
'* Microsoft Ext. ADO 2.5 for DDL Security (o posteriores).
'* Microsoft ActiveX Data Object 2.5 Library (o posteriores).
Dim cn As ADODB.Connection, rs As ADODB.Recordset, fila As Long
Set cn = New ADODB.Connection
cn.Open dataSource
Set rs = New ADODB.Recordset
rs.Open tableName, cn, adOpenKeyset, adLockOptimistic, adCmdTable
Sheets("Tu Hoja").Select
fila = 2 ' la primer fila en la hoja despues de los encabezamientos
Do While Len(Cells(fila, 2)) > 0
With rs
.AddNew
.Fields("ID_COL") = Range("A" & fila).Value
.Fields("SUCURSAL") = Range("B" & fila).Value
.Fields("FECHA_COL") = Range("C" & fila).Value
.Update
End With
fila = fila + 1
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub[/PHP]

Espero te sea de utilidad.

Atte.

joshua

[arieluko]

joshua, donde pongo estos datos?? en que parte??

[joshua]

Saludos.

Veo que tu conocimiento de vba es nulo, seria mejor subieras tu archivo original con datos ficticios, si no estariamos dandole demasiadas vueltas al tema a la hora de querer ajustar la macro a lo que necesitas.

Atte.

joshua