Visual Basic - Importar archivo Excel a Access automáticamente

Seguro que mucho de nosotros ha tenido que importar una hoja de cálculo (Excel) a una base de datos Access y al final se hace pesado, y por ello optamos a automatizarlo. Pues hoy os voy a explicar como desarrollar un aplicativo para importar automáticamente un Excel a Access automáticamente.

Lo primero que debemos hacer es crear un formulario nuevo y en este insertar un botón que ejecutar la consulta para importar el Excel. Después de ello, nos aseguramos que tenemos la referencia de Microsoft Excel, para ello vamos al menú Herramientas – Referencias y nos aseguramos que este activa la referencia Microsoft Excel 11.0 Object Library. Este 11.0 puede variar, seleccionad la versión más nueva. Si esto no lo activamos, cualquier cosa que hagamos a continuación no funcionará. Si por alguna razón la tenéis activa y no funciona, subirla de posición con las flechas de la derecha.

Os pongo el código para que lo entendáis mejor:

Dim Xl As Excel.Application 'Definimos una variable de aplicación Excel
Set Xl = New Excel.Application 'Inicializamos la variable
FileName = Xl.GetOpenFilename 'Obtenemos el Excel que queremos importar
'Comprobamos que se haya seleccionado correctamente el archivo
If (FileName <> "") Then
   'Ejecutamos la consulta para que lo importe
   DoCmd.TransferSpreadsheet acImport, 0, "nombre_hoja", FileName, True
   'También podemos exportar un ragon de celdas modificando lo siguiente:
   DoCmd.TransferSpreadsheet acImport, 0, "nombre_hoja", FileName, True, "A22:DH100"
   'Especificamos las celdas con: celda_origen:celda_fin
end if

Y con esto ya deberemos tener importado el excel, poniéndo el código anterior en un botón. Recordad que la tabla que se crea tendrá el nombre de la hoja del Excel.

Enlace | TransferSpreadsheet