Kuidas kasutada VBA andmeid andmete importimiseks Excelisse juurdepääsuks

Autor: Mark Sanchez
Loomise Kuupäev: 28 Jaanuar 2021
Värskenduse Kuupäev: 25 Detsember 2024
Anonim
Kuidas kasutada VBA andmeid andmete importimiseks Excelisse juurdepääsuks - Artiklid
Kuidas kasutada VBA andmeid andmete importimiseks Excelisse juurdepääsuks - Artiklid

Sisu

Õppimine, kuidas kasutada Visual Basic rakenduste jaoks andmete importimiseks Access'i, võib muuta teie andmebaasi rakenduse dünaamilisemaks. VBA-s saate Exceli töölehe avamiseks ja andmete tabelisse importimiseks kasutada objektide kombinatsiooni. Töölehe avamiseks kasutage VBA-s asuvat Microsoft Exceli objektikogu. Recordseti objekti kasutatakse tabeli avamiseks Excelisse salvestatud ja salvestatud andmete salvestamiseks. VBA kasutamine andmete importimiseks vähendab oluliselt protsessi käsitsi kuluvat aega.


Juhised

Andmete importimine Excelisse rakendusse Excel Object Library (Jupiterimages / Photos.com / Getty Images)

  1. Avage Microsoft Excel ja tippige A2-s "data1" ja B2-s "data2". Dokumendi salvestamiseks vajutage Ctrl + S. Salvestage tööleht "C: Temp" nimega "dataToImport.xlsx". Klõpsake nuppu Salvesta ja seejärel sulgege Excel.

  2. Käivitage Microsoft Access, klõpsake "New Database" ja klõpsake "Create". Klõpsake "Database Tools" ja klõpsake "Visual Basic", et avada VB redaktor. Klõpsake menüü "Lisa" ja uue koodi mooduli sisestamiseks klõpsake "Moodul". Klõpsake menüü "Tööriistad" ja seejärel "Viited" ning märkige ruut "Microsoft Excel Object Library" kõrval '.

  3. Alustage uue alamenetluse loomiseks järgmise VBA-koodi sisestamisega:


    Privaatne sub importExcelData ()

  4. Exceli lugemiseks kasutatavate muutujate loomiseks sisestage järgmine kood:

    Dim xlApp nagu Excel. Rakendus Dim xlBk kui Excel.Workbook Dim xlSht kui Excel.Worksheet

  5. Juurdepääsuks kasutatavate muutujate loomiseks sisestage järgmine kood:

    Dim dbRst nagu salvestusseadmeks Dim dbs nagu andmebaasi Dim SQLStr kui string

  6. Pangaobjektide määratlemiseks sisestage järgmine kood ja kasutatav tööleht:

    Seadistage dbs = CurrentDb Set xlApp = Excel. Rakenduskomplekt xlBk = xlApp.Workbooks.Open ("C: tempoToImport.xlsx") Määrake xlSht = xlBk.Sheets (1)

  7. Exceli andmete importimiseks looge Accessis uus tabel, millel on kaks veergu. DoCmd-objekti abil tabeli loomiseks sisestage järgmine kood:

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


  8. Avage tabel, mille olete just loonud Recordset-objekti abil. Tabeli avamiseks ja uue rea lisamiseks sisestage järgmine kood:

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

  9. Sisestage Exceli töölehele väärtuste saamiseks järgmine kood, salvestage need tabelisse ja värskendage kirje:

    xlSht.Range ("A2") Vali dbRst.Fields (0) .Value = xlSht.Range ("A2") Väärtus xlSht.Range ("B2") Vali dbRst.Fields (1) .Value = xlSht. Range ("B2") Väärtus dbRst.Update

  10. Täitke protseduur, sisestades järgmise VBA-koodi:

    dbRst.Sulge dbs.Sulge xlBk.Close End Sub

  11. Toimingu tegemiseks vajutage nuppu F5. Exceli töölehe andmed imporditakse teie Access tabelisse.