VBA er et programmeringsspråk utviklet av Microsoft for bruk i en rekke Microsoft-produkter , inkludert Microsoft Office. Programmerere kan lage databaser i ett program , for eksempel Access , og deretter sette inn data i databasen fra et annet program, for eksempel Excel. Få tilgang til en database for å sette inn en post inn i den fra VBA krever tilkobling til databasen innen ditt VBA -kode, etablere og sette inn poster til en database i VBA er lett nok for en nybegynner programmerer å oppnå i noen få trinn. Instruksjoner
en

Åpne Microsoft Excel.
2

Klikk på " Verktøy ", " Makro " og deretter " Visual Basic. " Dette vil åpne VBA programmering miljø .
3

Klikk "Sett inn " og " Module ". Du er nå i en programmeringskode modul
4

Type eller kopiere og lime inn følgende subprocedures i koden modul: .

Sub ADOFromExcelToAccess ( )

' eksport data fra det aktive regnearket til en tabell i en Access database

' denne prosedyren må redigeres før bruk

Dim cn Som ADODB.Connection , rs Som ADODB.Recordset , r As Long

'Koble til Access database

Set cn = New ADODB.Connection

cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
< p> "Data Source = C: \\ mappenavn \\ DataBaseName.mdb ; "

' åpne et recordset

Set rs = Ny ADODB.Recordset

rs.Open " tablename " , cn , adOpenKeyset , adLockOptimistic , adCmdTable

' alle poster i en tabell

r = 3 ' starten rad i regnearket

Mens Len ( Range (" en "& r ) . Formula ) > 0

' gjenta inntil første tomme cellen i kolonne A
p Med rs

. AddNew ' lag en ny rekord

' legge til verdier i hvert felt i posten

. Fields ( " FieldName1 ") = Range ("A " & r ) . Verdi

. Fields ( " FieldName2 " ) = Range (" B " & r ) . Verdi

. felt (" FieldNameN ") = Range ( "C " & r ) . Verdi

' legge til flere felt hvis det er nødvendig ...

. Update ' lagrer den nye posten

End With

r = r + 1 ' neste p

Loop

rs.Close

Set rs = Ingenting

cn.Close

Set cn = Ingenting

End Sub

koden malen oppretter en forbindelse til en VBA Access database og setter ulike poster i den. Sørg for å bytte ut navnet på mappen og database navnet med den faktiske databasen og mappenavn for at dette skal fungere .