VBA is een programmeertaal ontwikkeld door Microsoft voor gebruik binnen een aantal Microsoft-producten , waaronder Microsoft Office . Programmeurs kunnen databases aan te maken in een programma , zoals Access , en gegevens in te voegen dan in de databank van een andere toepassing , zoals Excel . Toegang krijgen tot een database om een record in te voegen in het van VBA vereist een verbinding met de database in uw VBA- code , het instellen en het invoegen van gegevens aan een database in VBA is eenvoudig genoeg voor een beginnende programmeur te bereiken in een paar stappen . Instructies
1 Open Microsoft Excel . Kopen van 2 Klik op 'Extra ', ' Macro ' en klik op ' Visual Basic . " Dit zal de VBA programmeeromgeving openen.
3 Klik op " Invoegen " en " Module . " Je bent nu in een programmeercode module
4 Typ of kopieer en plak de volgende subprocedures in de code -module : . Sub ADOFromExcelToAccess ( )
' export gegevens uit het actieve werkblad aan een tabel in een Access-database
' deze procedure moet worden bewerkt voor gebruik Dim cn
Zoals ADODB.Connection , rs Zoals ADODB.Recordset , r As Long < br > ' verbinding met de Access-database Set
cn = Nieuwe ADODB.Connection cn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ; "
& _
"Data Source = C : \\ Mapnaam \\ databasename.mdb ; "
' open een recordset
Set rs = Nieuwe ADODB.Recordset rs.Open " TableName
" , cn , adOpenKeyset , adLockOptimistic , adCmdTable
' alle records in een tabel
r = 3 ' de start rij in het werkblad
Do While Len ( Range ( " a " & r ) . Formula ) 0
> ' herhaal tot de eerste lege cel in kolom a
Met rs
. AddNew ' maak een nieuw record
' add waarden voor elk veld in de record
. Velden ( " FieldName1 " ) = Range ( " A " & r ) . Value
. Velden ( " FieldName2 " ) = range ( " B " & r ) . Value
. velden ( " FieldNameN " ) = range ( " C " & r ) . Value
' meer velden toe te voegen indien nodig ... < br > . bijwerken ' slaat de nieuwe plaat End met
r = r + 1 ' volgende tr Loop RS.Close
Set rs = Nothing
cn.Close Set
cn = Nothing End Sub
De code sjabloon maakt u een verbinding met een VBA Access-database en voegt verschillende registraties binnen het. Zorg ervoor dat u de naam van de map en de naam van de database te vervangen door uw werkelijke database- en mapnaam voor dit te laten werken .
|
