Lernen, wie man Visual Basic für Applikationen verwenden, um Daten in Access importieren können Sie Ihre Datenbank-Anwendung dynamischer. In VBA können Sie eine Kombination von Objekten , um eine vorhandene Excel-Arbeitsmappe öffnen und importieren Sie bestimmte Daten in eine Tabelle in Access. Verwenden Sie die Microsoft Excel Object Library in VBA , um die Arbeitsmappe zu öffnen. Das Recordset-Objekt wird verwendet, um eine vorhandene Tabelle in Access öffnen und speichern von Daten aus Excel hinein. Mit VBA Daten importieren kann erheblich reduzieren die Menge an Zeit verbringen Sie den Import von Daten manuell . Anleitung
1

Starten Sie Microsoft Office Excel und geben Sie " data1 " in A2 und " data2 " in B2 . Drücken Sie "Strg" und "S" , um das Dialogfenster "Speichern unter" und speichern Sie die Arbeitsmappe öffnen in "C: \\ Temp \\ " as " . DataToImport.xlsx " Klicken Sie auf " Speichern " und schließen Sie Excel.
2

Starten Sie Microsoft Office Access , klicken Sie auf " Leere Datenbank " und klicken Sie auf die Schaltfläche "Erstellen" . Klicken Sie auf " Database Tools ", und klicken Sie auf " Visual Basic ", um den VB -Editor-Fenster zu öffnen. Klicken Sie auf das Menü "Einfügen" und klicken Sie dann auf "Module" , um einen neuen Code-Modul einzufügen. Klicken Sie auf das Menü "Extras" auf " Referenzen ", und aktivieren Sie das Kontrollkästchen neben " Microsoft Excel Object Library . "
3

Beginnen Sie, indem Sie den folgenden VBA-Code

private Sub importExcelData ()
4

Geben Sie den folgenden Variablen Sie verwenden, um Excel gelesen schaffen :

Dim xlApp Als Excel , neue Sub-Prozedur erstellen . Anwendung

Dim xlBk Wie Excel.Workbook

Dim xlSht Wie Excel.Worksheet
5

Geben Sie den folgenden Variablen erstellen Sie in Access verwenden:

Dim dbRst Als Recordset Dim dbs

As Database Dim

sqlstr As String
6

Geben Sie den folgenden Datenbankobjekte definieren und definieren auch die Excel Arbeitsmappe zu verwenden:

Set dbs = CurrentDb

Set xlApp = Excel.Application

Set xlBk = xlApp.Workbooks.Open ("C : \\ Temp \\ dataToImport.xlsx " )

Set xlSht = xlBk.Sheets (1)
7

erstellen Sie eine neue Tabelle mit zwei Spalten in Access Daten aus Excel zu importieren. Geben Sie den folgenden VBA-Code , um die Tabelle mit dem " DoCmd " Objekt erstellen :

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

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

Öffnen Sie die Tabelle, nur durch die Verwendung eines das Recordset-Objekt erstellt . Geben Sie den folgenden , um die Tabelle zu öffnen , und fügen Sie eine neue Zeile :

Set dbRst = dbs.OpenRecordset ( " Exceldata " )

dbRst.AddNew
9

Typ die folgenden Werte aus der Excel-Arbeitsmappe zu bekommen, speichern Sie sie auf Ihrem Tisch und aktualisieren Sie die Aufzeichnung : .

xlSht.Range ( "A2" ) auswählen

dbRst.Fields (0) -Wert. = xlSht.Range ( "A2" ) . Wert

xlSht.Range ( "B2" ) . Wählen

dbRst.Fields (1). Value = xlSht.Range ( "B2" ) . Wert

dbRst.Update
10

Ende der Prozedur , indem Sie den folgenden VBA-Code :

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Presse "F5 ", um die Prozedur auszuführen . Die Daten in Ihrer Excel-Arbeitsmappe ist nur in Ihre Access-Tabelle importiert.