VBA är ett programmeringsspråk utvecklat av Microsoft för användning inom ett antal av Microsofts produkter , inklusive Microsoft Office . Programmerare kan skapa databaser i ett program , till exempel Access och sedan infoga data i databasen från ett annat program , till exempel Excel . Öppna en databas för att infoga en post i den från VBA kräver en anslutning till databasen i din VBA-kod , upprättande och infoga poster i en databas i VBA är tillräckligt enkelt för en nybörjare programmerare att åstadkomma i ett par steg . Instruktioner
1
Öppna Microsoft Excel.
2
Klicka på "Tools ", " Makro " och klicka sedan på " Visual Basic . " Detta kommer att öppna VBA-programmering miljö .
3
Klicka på " Infoga " och " Modul . " Du är nu i en programmeringskod modul
4
Skriv eller kopiera och klistra in följande subprocedures i kodmodulen : .
Sub ADOFromExcelToAccess ( ) katalog
" export data från det aktiva kalkylbladet till en tabell i en Access-databas
" detta förfarande måste redigeras innan användning
Dim cn Som ADODB.Connection , rs Som ADODB.Recordset , r As Long
'Ansluta till Access-databas
Set cn = Ny ADODB.Connection
cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 , " & _
" Data Source = C : \\ mappnamn \\ DataBaseName.mdb , "
' öppna en
postmängd
Set rs = New ADODB.Recordset
rs.Open " TableName " , cn , adOpenKeyset , adLockOptimistic , adCmdTable
" alla poster i en tabell
r = 3 ' starten raden i kalkylbladet
Do While Len ( Range ( " en " & R ) . Formula ) > 0
" upprepa tills första tomma cellen i kolumn A
med RS
. SparNy " skapa en ny post
" lägga till värden i varje fält i posten
. fält ( " FieldName1 " ) = Range ( " A " & R ) . Value
. fält ( " FieldName2 " ) = Range ( " B " & R ) . Value
. fält ( " FieldNameN " ) = Range ( " C " & R ) . Value
'Lägg till fler fält om det behövs ...
. Update " lagrar det nya rekordet End
r = r + 1 ' nästa rad
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
koden mallen skapas en anslutning till en VBA Access-databas och infogar olika poster inom det . Se till att byta namn på mappen och databas namn med din faktiska databasen och mappnamn för att detta ska fungera .
