Jump to content

Insertar Datos de Excel a Access


arieluko

Recommended Posts

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy