VBA er et programmeringssprog udviklet af Microsoft til brug inden for en række af Microsofts produkter, herunder Microsoft Office. Programmører kan oprette databaser i ét program, f.eks Access og derefter indsætte data i databasen fra et andet program , som Excel . Adgang til en database for at indsætte en post i det fra VBA kræver en forbindelse til databasen i din VBA-kode , oprettelse og indsættelse af poster til en database i VBA er let nok for en nybegynder programmør at udrette i et par skridt. Instruktioner
1
Åbn Microsoft Excel.
2
Klik på "Funktioner ", " Macro " og derefter klikke på " Visual Basic ". Dette vil åbne VBA programmering miljø .
3
Klik på " Indsæt " og " Modul ". Du er nu i et programmeringssprog kodemodulet
4
Skriv eller kopiere og indsætte følgende delprocedurer i koden modulet : .
Sub ADOFromExcelToAccess ()
' eksport data fra det aktive regneark til en tabel i en Access-database
' denne fremgangsmåde skal redigeres før brug
Dim cn Som ADODB.Connection , rs Som ADODB.Recordset , r As Long < br >
'Tilslut til Access-databasen
Set cn = Ny ADODB.Connection
cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
< p> "Data Source = C: \\ mappenavn \\ DataBaseName.mdb , "
' åbne en postsættet
Set
rs = New ADODB.Recordset
rs.Open " TableName " cn , adOpenKeyset , adLockOptimistic , adCmdTable
' alle poster i en tabel
r = 3' start række i regnearket
Do While Len ( Range (" A " & r ) . Formula) > 0
' gentag , indtil første tomme celle i kolonne A
med RS
. TilføjNy ' oprette en ny post
' add værdier til hvert felt i posten
. felter (" feltnavn1 " ) = Range ("A" & r ) . Value
. felter (" FieldName2 " ) = Range (" B" & r ) . Value
. felter (" FieldNameN " ) = Range ( "C" & r ) . Value
' tilføje flere felter hvis det er nødvendigt ... < br >
. Opdater ' gemmer den nye post
End With
r = r + 1' næste række
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
kodeskabelon opretter en forbindelse til en VBA Access-database og indsætter forskellige registre i det. Sørg for at udskifte den mappe navn og database navn med din faktiske database og mappenavn for dette arbejde .
