Cómo utilizar VBA para importar datos de Excel a Access

Contenido

• instrucciones

Aprender a utilizar Visual Basic para aplicaciones para importar datos a Access puede dejar su aplicación de base de datos más dinámica. En VBA, puede utilizar una combinación de objetos para abrir una hoja de Excel e importar datos a una tabla de Access. Utilice la biblioteca de objetos para Microsoft Excel en VBA para poder abrir la hoja de cálculo. El objeto Recordset se utiliza para abrir una tabla en Access y guardar datos importados de Excel. El uso de VBA para importar datos reduce significativamente el tiempo gastado si se realiza el proceso manualmente.

instrucciones

Importe datos de Excel a Access mediante la Biblioteca de objetos de Excel (Jupiterimages / Photos.com / Getty Images)

1. Abra Microsoft Excel y escriba "data1" en A2 y "data2" en B2. Presione Ctrl + S para guardar el documento. Guarde la hoja de cálculo en "C: Temp " con el nombre "dataToImport.xlsx". Haga clic en Guardar y cierre Excel.

2. Inicie Microsoft Access, haga clic en "Nueva base de datos" y haga clic en "Crear". Haga clic en "Herramientas de base de datos" y haga clic en "Visual Basic" para abrir el editor de VB. Haga clic en el menú "Insertar" y haga clic en "Módulo" para insertar un nuevo módulo de código. Haga clic en el menú "Herramientas" y luego en "Referencias" y marque el cuadro junto a "Biblioteca de objetos de Microsoft Excel '.

3. Comience escribiendo el siguiente código de VBA para crear un nuevo subproceso:

   
   

   Private Sub importExcelData ()

4. Escriba el siguiente código para crear las variables que se van a utilizar para leer Excel:

   Dim xlApp Excel.Application Dim xlBk Excel.Workbook Dim xlSht Excel.Worksheet

5. Escriba el siguiente código para crear las variables que desea utilizar en Access:

   Dim DbRst As Recordset Dim dbs Las bases de datos de base de datos SQLStr As String

6. Introduzca el código siguiente para definir los objetos del banco y también para definir qué hoja de trabajo utilizar:

   (En el caso de que no se encuentre en la base de datos de la base de datos).

7. Cree una nueva tabla con dos columnas en Access para importar datos de Excel. Introduzca el código siguiente para crear la tabla mediante el objeto DoCmd:

   SQLStr = "CREATE TABLE excelData (columnOne TEXT, columnTwo TEXT)" DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)

8. Abra la tabla que acaba de crear utilizando un objeto Recordset. Introduzca el código siguiente para abrir la tabla y agregar una nueva línea:

   
   

   Set dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

9. Escriba el siguiente código para obtener los valores de la hoja de Excel, guardarlos en su tabla y actualizar el registro:

   (x) () () () () () () () () () () () () (). Range ("B2"). Value dbRst.Update

10. Finaliza el procedimiento escribiendo el siguiente código de VBA:

    dbRst.Close dbs.Close xlBk.Close End Sub

11. Presione F5 para ejecutar el procedimiento. Los datos de la hoja de cálculo de Excel se importarán a la tabla de Access.