Código VBA para exportar datos de Excel a Access

Código VBA para exportar datos de Excel a Access
Tabla de contenido

Exportar datos de Excel a Access con VBA (imágenes y código)

¿De qué se trata?

Este código VBA le ayuda a cargar o exportar datos de Excel a Access en un solo clic.

¿Por qué?

Puede exportar datos de Excel a Access sin ni siquiera abrir la base de datos de Access.

Cómo exportar datos de Excel a Access





Paso 1: Abra el Sobresalir y vaya al generador de código VBA (Alt + F11) y Abrir un nuevo módulo

.Exportar datos de Excel a Access

Paso 2: Copie y pegue el siguiente código.

Const TARGET_DB = "miDB.accdb" Sustituya 'myDB.accdb' por el nombre de su base de datos, asegúrese de que tanto Excel como Access DB están en la misma ruta.
Sub PushTableToAccess()
Dim cnn As ADODB.Connection
Dim MyConn
Dim rst As ADODB.Recordset
Dim i As Long, j As Long
Dim Rw As Long

Hojas("Nombre Hoja").Activar Sustituya el "Nombre de la hoja" por el nombre de su hoja Excel.
Rw = Rango("A65536").Fin(xlUp).Fila
'Dar a su hoja de Excel de datos Rango

Set cnn = Nueva conexión ADODB.Connection
MyConn = ThisWorkbook.Path & Application.PathSeparator & TARGET_DB

Con cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
Abrir MyConn
Terminar con

Sustituya "tblMyExcelUpload" por el nombre de su tabla en Access.

Set rst = Nuevo ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open Source:="tblMyExcelUpload", ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Opciones:=adCmdTable

'Cargar todos los registros de Excel a Access.
Para i = 2 a Rw
rst.AddNew
Para j = 1 a 7
rst(Celdas(1, j).Valor) = Celdas(i, j).Valor
Siguiente j
rst.Actualizar
Siguiente i

' Cerrar la conexión
rst.Cerrar
cnn.Close
Set rst = Nada
Set cnn = Nada

Subtítulo final

Paso 3:Haga clic en el botón Ejecutar o F5.(También puede insertar un botón / forma en la hoja de Excel a continuación, haga clic derecho y asignar esta macro para que se ejecute cada vez). Ya ha finalizado la carga. Los registros de Excel se han cargado correctamente en Access, abra su tabla de Access DB y compruebe los datos.

Exportar datos de Excel a Access

Nota: Asegúrese de que 'Microsoft ActiveX Data Objects Library' está activada desde el Herramientas - Referencias (número utilizar la última versión [6.1 a partir de este post]).

Adodb_Exportar datos de Excel a AccessPin


anson antonio
anson antonio
Anson es autor colaborador y fundador de www.askeygeek.com. Aprender algo nuevo siempre ha sido su pasión, ASKEYGEEK.com es el resultado de su pasión por la tecnología y los negocios. Tiene una década de experiencia versátil en subcontratación de procesos comerciales, finanzas y contabilidad, tecnología de la información, excelencia operativa e inteligencia empresarial. Durante su mandato, trabajó para organizaciones como Genpact, Hewlett Packard, M*Modal y Capgemini en diversos roles y responsabilidades. Fuera de los negocios y la tecnología, es un cinéfilo que pasa horas juntos viendo y aprendiendo cine, ¡y también es un cineasta!

9 respuestas

  1. Hola a todos;

    ¿Deben coincidir estas dos rutas para que funcione la conexión ADODBC? Es decir, ThisWorkbook.Path y Target_DB.
    Mando desde arriba:
    ThisWorkbook.Path & Application.PathSeparator & TARGET_DB

    O, puede el Workbook.Path ser decir
    "C:\MyExcelFiles\MyWorkbook.xlsx" & la base de datos de Access TARGET_DB estar en
    ¿"C:\MyDataBases\MyAccessDB.accdb"?

    Mi código funciona cuando tanto el Excel WorkBook y Access DB residen en la misma carpeta, pero cuando están en diferentes carpetas (estructura de la biblioteca organizada correctamente, el código falla en el punto .Open MyConn.

    Gracias a todos,
    Mario,

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

¡Felicidades!
Lo hiciste,
¡No cierres!
Ingresa tu oportunidad de ganar 100.000 créditos de personajes UberTTS
¡Gracias por tu visita!

Esta ventana emergente no se mostrará tú decides de nuevo!!!

Huevo de Pascua UberTTS 100K
28
Share to...