Hvordan sette inn en post Into the VBA Database
VBA er et programmeringsspråk utviklet av Microsoft for bruk innenfor 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 VBA kode; etablere og sette inn poster til en database i VBA er enkelt nok for en nybegynner programmerer å oppnå i noen få trinn.
Bruksanvisning
1 Åpne Microsoft Excel.
2 Klikk "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 Skriv eller kopier og lim inn følgende subprocedures i koden modulen:
Sub ADOFromExcelToAccess ()
'Eksport data fra det aktive regnearket til en tabell i en Access-database
'Denne prosedyren må redigeres før bruk
Dim cn As ADODB.Connection, retten ADODB.Recordset, r As Long
' connect to the Access database
Sett cn = Ny ADODB.Connection
cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = C: \ Mappe \ DataBaseName.mdb;"
'Åpne et recordset
Set rs = Ny ADODB.Recordset
rs.Open "Tabellnavn", cn, adOpenKeyset, adLockOptimistic, adCmdTable
"Alle poster i en tabell
r = 3 'starten rad i regnearket
Gjøre mens Len (Range ( "A" & r) .Formula)> 0
'Gjenta inntil første tomme cellen i kolonne A
med rs
.AddNew 'Opprette en ny post
"Legge til verdier i hvert felt i posten
.Fields ( "FieldName1") = Range ( "A" & r) .Value
.Fields ( "FieldName2") = Range ( "B" & r) .Value
.Fields ( "FieldNameN") = Range ( "C" & r) .Value
"Legge til flere felt hvis det er nødvendig ...
.Update 'Lagrer den nye rekord
End With
r = r + 1 'neste p
Loop
rs.Close
Set rs = Nothing
cn.Close
Sett cn = Nothing
End Sub
Koden mal skaper en forbindelse til en VBA Access database og setter ulike poster i den. Sørg for å erstatte mappenavnet og databasenavn med det faktiske database og mappenavn for at dette skal fungere.