1
Abrir Excel.
2 Haga clic en " Herramientas" de Microsoft "Macro " y luego haga clic en " Visual Basic " . Esto abrirá el entorno de programación VBA.
3
Haga clic en " Insertar" y " módulos". Ahora se encuentra en un módulo de código de programación
4
Escriba o copie y pegue los siguientes procedimientos secundarios en el módulo de código : . Exportaciones
Sub ADOFromExcelToAccess ()
' los datos de la hoja de cálculo activa a una tabla en una base de datos
' este procedimiento deben ser editados antes de su uso
cn As ADODB.Connection , ADODB.Recordset Como rs , r As Long
' conectarse a la base de datos Access
Set cn = New ADODB.Connection
cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
< p> "Data Source = C: \\ FolderName \\ DataBaseName.mdb ; "
' abrir un conjunto de registros
Set rs = New ADODB.Recordset
rs.Open TableName " " , cn, adOpenKeyset , adLockOptimistic , adCmdTable
' todos los registros de una tabla
r = 3 ' de la fila de inicio en la hoja
Do While Len ( Range (" a " & r ) . Formula) > 0
' repetir hasta la primera celda vacía de la columna A
RS