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

Aprender a utilizar Visual Basic para aplicaciones para importar datos a Access puede hacer que su aplicación de base de datos más dinámico. En VBA , puede utilizar una combinación de objetos para abrir un libro de Excel existente e importar algunos datos a una tabla de Access. Utilice la biblioteca de objetos de Microsoft Excel en VBA para abrir el libro . El objeto Recordset se utiliza para abrir una tabla existente en el acceso y guardar los datos de Excel en el mismo. Usando VBA para importar datos puede reducir significativamente la cantidad de tiempo que pasa la importación de datos de forma manual. Instrucciones
1

lanzamiento de Microsoft Office Excel y escriba " datos1 " en A2, y " data2 " en B2 . Pulse la tecla "Ctrl " y " S " para abrir el "Guardar como" ventana de diálogo y guardar el libro en "C: \\ Temp \\ " as ". DataToImport.xlsx " Haga clic en " Guardar " y cierre Excel.
2

lanzamiento Microsoft Office Access , haga clic en "Base de datos en blanco " y haga clic en el botón "Crear" . Haga clic en " Herramientas de base de datos" y haga clic en "Visual Basic " para abrir la ventana del editor de VB . Haga clic en el menú " Insertar" y luego haga clic en " módulos" para insertar un nuevo módulo de código . Haga clic en el menú " Herramientas" , haga clic en "Referencias ", y marque la casilla junto a " biblioteca de objetos de Microsoft . "
3

Inicio , escriba el siguiente código de VBA crear nuevo procedimiento sub :

importExcelData sub Private ()
4

Escriba lo siguiente para crear variables que va a utilizar para leer Excel :

Dim xlApp En Excel . Aplicación

xlBk As Excel.Workbook

xlSht As Excel.Worksheet
5

Escriba lo siguiente para crear variables que va a utilizar en Access :

dbRst As Recordset

Dim dbs como base de datos

sqlstr dévil como secuencia
6

Escriba lo siguiente para definir los objetos de base de datos , así como definir el Excel libro de usar:

Set dbs = CurrentDb

Set xlApp = Excel.Application

Establecer xlBk = xlApp.Workbooks.Open ("C: \\ temp \\ dataToImport.xlsx " )

Set xlSht = xlBk.Sheets ( 1 )
7

Crear una nueva tabla con dos columnas en Access para importar datos de Excel. Escriba el siguiente código de VBA para crear la tabla utilizando el objeto " DoCmd ":

sqlstr = " CREATE TABLE Exceldata ( columnOne TEXTO, TEXTO columnTwo ) "

DoCmd.SetWarnings
False < p> DoCmd.RunSQL ( sqlstr )
8

Abra la tabla que acaba de crear mediante el uso de un objeto de conjunto de registros . Escriba lo siguiente para abrir la tabla y agregar una nueva fila :

Set dbRst = dbs.OpenRecordset ( " Exceldata " )

dbRst.AddNew
9

Tipo lo siguiente para obtener los valores del libro de Excel, guardarlos en su mesa y actualizar el registro : .

xlSht.Range ( "A2 " ) Seleccione
dbRst.Fields

( 0 ) Value. = xlSht.Range ( " A2 " ) . Valor

xlSht.Range ( " B2 " ) . Seleccione
dbRst.Fields

( 1 ) . Valor = xlSht.Range ( " B2 " ) . Valor

dbRst.Update
10

final del procedimiento , escriba el siguiente código de VBA :

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Press "F5 " para ejecutar el procedimiento. Los datos en el libro de Excel solo se ha importado en la tabla de Access .