Podemos exportar los datos de Microsoft Excel a Microsoft Access usando VBA. A continuación se muestra el código y el proceso de VBA que debe pegar en el módulo de código del archivo.

{vacío} 1. Abra Excel 2. Presione ALT + F11 3. Se ABRIRÁ el Editor de VBA 4. Haga clic en cualquier lugar de la Ventana del Proyecto 5. Haga clic en Insertar 6. Haga clic en Módulo

image1

{vacío} 7. En la ventana de código, copie y pegue el código mencionado a continuación * Sub ADOFromExcelToAccess ()

‘exporta datos de la hoja de trabajo activa a una tabla en una base de datos de Access’ este procedimiento debe editarse antes de usar Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long ‘conectarse a la base de datos de Access Establecer cn = New ADODB. Conexión cn.Open «Provider = Microsoft.Jet.OLEDB.4.0;» & _ «Fuente de datos = C: \ FolderName \ DataBaseName.mdb;»

‘abrir un conjunto de registros rs = New ADODB.Recordset rs.Open «TableName», cn, adOpenKeyset, adLockOptimistic, adCmdTable’ todos los registros en una tabla r = 3 ‘la fila de inicio en la hoja de trabajo Do While Len (Range («A» & r) .Formula)> 0 ‘repetir hasta la primera celda vacía en la columna A Con rs .AddNew’ crear un nuevo registro ‘agregar valores a cada campo en el registro .Fields («FieldName1») = Range («A» & r ) .Value .Fields («FieldName2») = Rango («B» & r) .Value .Fields («FieldNameN») = Rango («C» & r) .Value ‘agregue más campos si es necesario …​

Update ‘almacena el nuevo registro End With r = r + 1’ siguiente fila Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub *

image2

{vacío} 8. Una vez pegado, vaya al archivo de Excel 9. Haga clic en la pestaña VER en la cinta 10. Haga clic en Macros 11. Haga clic en Ver macros 12. La tecla de acceso directo para ver macros es ALT + F8 13. Aparecerá una ventana

image3

{vacío} 14. Seleccione la macro 15. Aquí la macro se llama «ADOFromExcelToAccess» 16. Seleccione la macro «ADOFromExcelToAccess» 17. Haga clic en Ejecutar 18. Haga clic en Aceptar para cerrar el cuadro. Así es como podemos exportar datos de Excel a Access usando VBA en Microsoft Excel.