Hur man använder VBA för att importera data från Excel till Access

Att lära sig använda Visual Basic for Applications för att importera data till Access kan göra din databas ansökan mer dynamisk . I VBA kan du använda en kombination av objekt för att öppna en befintlig arbetsbok i Excel och importera vissa data till en tabell i Access . Använd Microsoft Excel Object Library i VBA för att öppna arbetsboken . Den Recordset-objekt används för att öppna en befintlig tabell i Access och spara data från Excel till det . Använda VBA för att importera data kan avsevärt minska den tid du spenderar importera data manuellt . Instruktioner
1

Launch Microsoft Office Excel och typ " data1 " i A2 , och " Data2 " i B2 . Tryck på " Ctrl " och " S " för att öppna " Spara som " dialogrutan och sparar arbetsboken i " C : \\ Temp \\ " som " . DataToImport.xlsx " Klicka på " Spara " och stäng Excel .
2

Launch Microsoft Office Access , klicka på " Tom databas " och klicka på " Skapa " -knappen . Klicka på " Databas Verktyg " och klicka på " Visual Basic " för att öppna VB Editor Window . Klicka på " Infoga " -menyn och klicka sedan på " modul " för att infoga en ny kod modul . Klicka på " Verktyg " -menyn , klicka på " Referenser , " och markera rutan bredvid " Microsoft Excel Object Library . " Addera 3

Börja med att skriva följande VBA-kod att skapa nya sub förfarande :

Private sub importExcelData ( )
4

Skriv följande för att skapa variabler du använder för att läsa Excel :

Dim xlApp som Excel . Ansökan

Dim xlBk som Excel.Workbook

Dim xlSht som Excel.Worksheet
5

Skriv följande för att skapa variabler som du kommer att använda i Access :

Dim dbRst som Recordset

Dim dbs som Database

Dim sqlstr As String
6

Skriv följande för att definiera databasobjekt och även definiera Excel arbetsbok att använda :

Set dbs = CurrentDb

Set xlApp = Excel.Application

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

Set xlSht = xlBk.Sheets ( 1 )
7

Skapa en ny tabell med två kolumner i Access för att importera data från Excel . Skriv följande VBA-kod för att skapa tabellen med " DoCmd " objekt :

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )
8

Öppna den tabell som du just skapade genom att använda ett Recordset -objekt. Skriv följande för att öppna tabellen och lägga till en ny rad :

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

dbRst.AddNew
9

Type följande för att få värden från Excel- arbetsboken , spara dem till tabellen och uppdatera posten : .

xlSht.Range ( " A2 " ) Välj

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

xlSht.Range ( " B2 " ) . Välj

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

dbRst.Update
10

Avsluta din procedur genom att skriva följande VBA -kod :

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Tryck " F5 " för att köra proceduren . Uppgifterna i din Excel- arbetsbok precis har importerats till din Access-tabell .