Importe de Excel a Access

Importar archivo de Excel a Acces con VBA

Califica este artículo
5/5

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.

Sub Importar_Excel_A_Access()
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
End Sub

No Comment.