Lære å bruke Visual Basic for Applications for å importere data til Access kan gjøre databaseprogrammet mer dynamisk . I VBA , kan du bruke en kombinasjon av objekter for å åpne en eksisterende Excel-arbeidsbok og importere visse data i en tabell i Access. Bruk Microsoft Excel Object Library i VBA for å åpne arbeidsboken . Den Recordset objektet brukes til å åpne en eksisterende tabell i Access og lagre data fra Excel inn i den. Ved hjelp av VBA til å importere data kan betydelig redusere mengden av tiden du bruker å importere data manuelt . Instruksjoner
en

Launch Microsoft Office Excel og skriv " data1 " i A2 , og " data2 " i B2 . Trykk "Ctrl " og " S " for å åpne "Lagre som " dialog vinduet og lagre arbeidsboken i "C : \\ Temp \\ " som " . DataToImport.xlsx " Klikk på " Lagre " og lukk Excel.
2

Launch Microsoft Office Access , klikk " Blank Database " og klikk på "Create "-knappen . Klikk på " Database Tools " og klikk " Visual Basic " for å åpne VB Editor Window. Klikk på " Insert"-menyen og klikk på " Module " for å sette inn en ny kode modul . Klikk på " Verktøy"-menyen , klikk på " Referanser ", og merk av for "Microsoft Excel Object Library. "
3

Start ved å skrive følgende VBA-kode å skape ny sub prosedyre : en

Private Sub importExcelData ( )
4

Skriv inn følgende for å lage variabler du vil bruke til å lese Excel : en

Dim xlApp Som Excel . Søknad

Dim xlBk Som Excel.Workbook

Dim xlSht Som Excel.Worksheet
5

Skriv inn følgende for å lage variabler vil du bruke i Access :

Dim dbRst Som Recordset

Dim dBS Som Database

Dim SQLStr As String
6

Skriv inn følgende for å definere databaseobjekter og også definere Excel arbeidsbok til å bruke : en

Set dBS = CurrentDb

Set xlApp = Excel.Application

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

Set xlSht = xlBk.Sheets ( 1 )
7

Opprett en ny tabell med to kolonner i Access til å importere data fra Excel. Skriv inn følgende VBA -kode for å opprette tabellen ved hjelp av " DoCmd " objekt : en

SQLStr = " CREATE TABLE excelData ( columnOne TEKST, columnTwo TEKST )"

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

Åpne tabellen du nettopp opprettet ved hjelp av en Recordset objektet . Skriv inn følgende for å åpne tabellen og legge til en ny rad : en

Set dbRst = dbs.OpenRecordset ( " excelData ")

dbRst.AddNew
9

Type følgende for å få verdier fra Excel-arbeidsboken , lagre dem på tabellen og oppdatere posten : .

xlSht.Range ( " A2" ) Velg

dbRst.Fields ( 0 ) Verdi . = xlSht.Range ( " A2" ) . Verdi

xlSht.Range ( " B2 ") . Velg

dbRst.Fields ( 1 ) . Verdi = xlSht.Range ( " B2 ") . Verdi

dbRst.Update
10

End din prosedyren ved å skrive følgende VBA -kode:

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Trykk " F5 " for å kjøre prosedyren. Dataene i Excel-arbeidsboken har nettopp blitt importert til Access-tabell .