Share on facebook
Share on google
Share on twitter
Share on linkedin
Share on whatsapp
Importe de Excel a Access

Importar archivo de Excel a Acces con VBA

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 les 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 Microsoft Access 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 tienes 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 Inicializamos la variable
Set Xl = New Excel.Application
'Obtenemos el Excel que queremos importar.
FileName = Xl.GetOpenFilename 

'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
Share on facebook
Share on google
Share on twitter
Share on linkedin
Share on whatsapp

Posts Relacionados

2 Comments
Barajas15 Abril, 2019
| |

Eso se hace en una macro de excel o de access?