Ako používať VBA importovať dáta z programu Excel do programu Access

Naučiť sa používať Visual Basic for Applications na import údajov do programu Access môžete vytvoriť databázy programu dynamickejší . Vo VBA , môžete použiť kombináciu predmetov otvoriť existujúci zošit programu Excel a dovážať určité dát do tabuľky v programe Access . Pomocou objektovej knižnice Microsoft Excel VBA otvorte zošit . Objekt Recordset sa používa na otvorenie existujúcu tabuľku v programe Access a uložiť dáta z programu Excel do neho . Pomocou jazyka VBA k importu dát môže výrazne znížiť množstvo času , ktorý strávite importovať dáta ručne . Pokyny dovolená 1

Spustite program Microsoft Office Excel a zadajte " údaje1 " v A2 , a " údaje2 " v B2 . Stlačte tlačidlo " Ctrl " a " S " sa otvorí " Uložiť ako " dialógové okno a uloženie zošita v " C : \\ Temp \\ " " . DataToImport.xlsx " ako Kliknite na tlačidlo " Uložiť " a zatvorte aplikáciu Excel .
2

Spustite program Microsoft Office Access , kliknite na tlačidlo " Prázdna databáza " a kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " , otvorte okno editora jazyka Visual Basic . Kliknite na menu " Vložiť " a potom kliknite na tlačidlo " modul " vložiť nový kód modulu . Kliknite na menu " Nástroje " , kliknite na " Odkazy " a zaškrtnite políčko vedľa " Microsoft Excel Object Library . "
3

Začnite zadaním nasledujúci kód VBA vytvoriť nový čiastkové postup :

Private Sub importExcelData ( )
4

Zadajte nasledujúce vytvoriť premenné , ktoré budete používať pre čítanie Excel :

Dim oExcel ako Excel . Použitie

Dim xlBk Ako Excel.Workbook

Dim xlSht Ako Excel.Worksheet
5

Zadajte nasledujúce vytvoriť premenné , ktoré budete používať v programe Access :

Dim dbRst ako Recordset

Dim dbs ako databáza

Dim SQLStr As String
6

Zadajte nasledujúce definovať databázové objekty a tiež definovať Excel zošit na použitie :

Set DBS = CurrentDb

Set oExcel = Excel.Application

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

Set xlSht = xlBk.Sheets ( 1 )
7

Vytvoriť novú tabuľku s dvoma stĺpcami v programe Access import dát z Excelu . Zadajte nasledujúci kód jazyka VBA k vytvoreniu tabuľky pomocou " DoCmd " objekt :

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

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLStr )
8

Otvorte tabuľku , ktorú práve vytvorili pomocou objektu Recordset . Zadajte nasledujúce otvoriť tabuľku a pridať nový riadok :

Set dbRst = dbs.OpenRecordset ( " excelData " )

dbRst.AddNew
9

typ nasledujúce dostať hodnoty zo zošita programu Excel , uložte ich do tabuľky a aktualizovať záznam :

xlSht.Range ( " A2 " ) Vyberte klipart

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

xlSht.Range ( " B2 " ) . Výber

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

dbRst.Update
10

Ukončite postup zadaním nasledujúci kód jazyka VBA :

dbRst.Close

dbs.Close

xlBk.Close

End Sub
11

Stlačte " F5 " pre spustenie procedúry . Dáta v zošite programu Excel bol práve importovaný do tabuľky programu Access .

• Predchádzajúca strana: Ako si vyrobiť tučným písmom v programe Excel 
• Ďalšia strana: Ako zamknúť tabuľky Excelu