At lære at bruge Visual Basic for Applications til at importere data til Access kan gøre din database ansøgning mere dynamisk. I VBA kan du bruge en kombination af objekter til at åbne en eksisterende Excel-projektmappe og importere bestemte data til en tabel i Access. Brug Microsoft Excel Object Bibliotek i VBA til at åbne projektmappen . Den Recordset objekt bruges til at åbne en eksisterende tabel i Access og gemme data fra Excel i det. Brug VBA til at importere data kan reducere mængden af ​​tid, du tilbringer importere data manuelt. Instruktioner
1

Launch Microsoft Office Excel og skriv " data1 " i A2 og " data2 " i B2 . Tryk på " Ctrl " og "S " for at åbne "Gem som " dialog vindue og gemmer projektmappen i "C: \\ Temp \\ " som " . DataToImport.xlsx " Klik på "Gem ", og luk Excel.
2

Launch Microsoft Office Access , klik på " Tom database " og klik på "Opret " knappen. Klik på " Database Tools ", og klik på " Visual Basic " for at åbne VB Editor-vinduet . Klik på " Indsæt" menuen og derefter klikke på " Modul " for at indsætte en ny kode modul. Klik på menuen "Funktioner" , klik på " Referencer ", og marker afkrydsningsfeltet ved siden af ​​" Microsoft Excel Object Library ".
3

Start ved at skrive følgende VBA-kode at skabe ny sub procedure : Hej

Private Sub importExcelData ()
4

Skriv følgende for at oprette variabler, du vil bruge til at læse Excel : Hej

Dim xlApp Som Excel . Anvendelse

Dim xlBk Som Excel.Workbook

Dim xlSht Som Excel.Worksheet
5

Skriv følgende for at oprette variabler, du vil bruge i Access : < br >

Dim dbRst Som Recordset

Dim dbs som database

Dim SQLStr As String
6

Skriv følgende for at definere databaseobjekter og også definere Excel projektmappe til at bruge : Hej

Set dbs = CurrentDb

Set xlApp = Excel.Application

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

Set xlSht = xlBk.Sheets (1)
7

Opret en ny tabel med to kolonner i Access til at importere data fra Excel. Indtast følgende VBA-kode til at oprette tabellen ved hjælp af " DoCmd " objekt : Hej

SQLStr = " CREATE TABLE ExcelData ( columnOne TEKST , columnTwo TEXT )"

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

Åbn den tabel, du lige har oprettet ved hjælp af en Recordset objekt. Skriv følgende for at åbne tabellen og tilføje en ny række : Hej

Set dbRst = dbs.OpenRecordset ( " ExcelData " )

dbRst.AddNew
9

Type følgende for at få værdier fra Excel-projektmappen , gemme dem til din tabel og opdatere posten : .

xlSht.Range ( " A2 " ) Vælg

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

xlSht.Range ( " B2 "). Vælg

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

dbRst.Update
10

Afslut din procedure ved at skrive følgende VBA-kode : Hej

dbRst.Close

dbs.Close < br >

xlBk.Close

End Sub
11

Tryk på " F5 " for at køre proceduren. De data i Excel-projektmappe er netop blevet importeret til din Access-tabel.