Kako uporabljati VBA za uvoz podatkov iz Excela v Access

Avtor: Sara Rhodes
Datum Ustvarjanja: 10 Februarjem 2021
Datum Posodobitve: 2 Julij. 2024
Anonim
Uvoz podataka u MS Excel
Video.: Uvoz podataka u MS Excel

Vsebina

Učenje, kako uporabljati Visual Basic za aplikacije za uvoz podatkov v Access, lahko vašo zbirko podatkov baze podatkov bolj dinamično. V VBA lahko s kombinacijo objektov odprete delovni list programa Excel in uvozite podatke v tabelo Access. Uporabite knjižnico objektov za Microsoft Excel v VBA, da odprete delovni list. Objekt Recordset se uporablja za odpiranje tabele v programu Access in shranjevanje podatkov, uvoženih iz programa Excel. Uporaba VBA za uvoz podatkov bistveno zmanjša čas, ki ga porabimo za ročni postopek.


Navodila

Uvozite podatke iz programa Excel v dostop s knjižnico objektov Excel (Jupiterimages / Photos.com / Getty Images)

  1. Odprite Microsoft Excel in vtipkajte "data1" v A2 in "data2" v B2. Pritisnite Ctrl + S, da shranite dokument. Shranite delovni list v "C: Tem" z imenom "dataToImport.xlsx". Kliknite Shrani in zaprite Excel.

  2. Zaženite Microsoft Access, kliknite »Nova baza podatkov« in kliknite »Ustvari«. Kliknite "Orodja za zbirke podatkov" in kliknite "Visual Basic", da odprete urejevalnik VB. Kliknite meni "Vstavi" in kliknite "Modul", da vstavite nov kodni modul. Kliknite meni »Orodja« in nato »Viri« in potrdite polje poleg »Knjižnica objektov Microsoft Excel '.

  3. Začnite tako, da vnesete naslednjo kodo VBA, da ustvarite nov pod-postopek:


    Zasebno uvozi podmeniExcelData ()

  4. Vnesite naslednjo kodo, da ustvarite spremenljivke za branje Excela:

    Dim xlApp Kot Excel.Application Dim xlBk Kot Excel.Workbook Dim xlSht Kot Excel.Worksheet

  5. Vnesite naslednjo kodo, da ustvarite spremenljivke, ki bodo uporabljene v programu Access:

    Dim dbRst As Recordset Dim dbs Kot baza podatkov Dim SQLStr Kot niz

  6. Vnesite naslednjo kodo, da določite bančne predmete, in določite, kateri delovni list uporabite:

    Set dbs = CurrentDb Set xlApp = Excel.Application Set xlBk = xlApp.Workbooks.Otvorite ("C: Tempo.slx") Nastavite xlSht = xlBk.Sets (1)

  7. Ustvarite novo tabelo z dvema stolpcema v programu Access za uvoz podatkov programa Excel. Vnesite naslednjo kodo za izdelavo tabele z uporabo predmeta DoCmd:

    SQLStr = "CREATE TABLE excelData (columnOne TEXT, columnTwo TEXT)" DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)

  8. Odprite tabelo, ki ste jo pravkar ustvarili, s predmetom Recordset. Vnesite naslednjo kodo, da odprete tabelo in dodate novo vrstico:


    Nastavi dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

  9. Vnesite naslednjo kodo, da dobite vrednosti v delovnem listu programa Excel, jih shranite v tabelo in posodobite zapis:

    xlSht.Range ("A2") Izberite dbRst.Fields (0) .Value = xlSht.Range ("A2") Vrednost xlSht.Range ("B2") Izberite dbRst.Fields (1) .Value = xlSht. Razpon ("B2"). Vrednost dbRst.Update

  10. Postopek zaključite tako, da vnesete naslednjo kodo VBA:

    dbRst.Close dbs.Close xlBk.Close End Sub

  11. Pritisnite F5 za izvedbo postopka. Podatki v delovnem listu programa Excel bodo uvoženi v tabelo Access.