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.
 
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   

 

 

0Shares

Leave a Comment

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