VBA è un linguaggio di programmazione sviluppato da Microsoft per l'utilizzo all'interno di una serie di prodotti Microsoft, tra cui Microsoft Office . I programmatori possono creare basi di dati in un programma, ad esempio Access , e quindi inserire i dati nel database da un'altra applicazione , ad esempio Excel . Accesso a un database per inserire un record in esso da VBA richiede una connessione alla base di dati all'interno del codice VBA , che stabilisce e l'inserimento di record in un database in VBA è abbastanza facile per un programmatore alle prime armi per raggiungere in pochi passi . Istruzioni
1

Aperte .
2

Clicca su "Strumenti " di Microsoft Excel "Macro" e quindi fare clic su " Visual Basic ". Si aprirà l'ambiente di programmazione VBA .
3

Fare clic su " Inserisci" e "Modulo ". Si è ora in un modulo di codice di programmazione
4 Tipo

o copiare e incollare le seguenti sottoprocedure nel modulo di codice : .

Sub ADOFromExcelToAccess ( ) per

' esportazioni i dati del foglio di lavoro attivo a una tabella in un database di Access

' questa procedura devono essere modificati prima di utilizzare

Dim cn As ADODB.Connection , rs come ADODB.Recordset , r As Long < br >

'Connessione al database

Set Accesso cn = New ADODB.Connection

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

' aprire un recordset

Set rs = New ADODB.Recordset

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

' tutti i record di una tabella

r = 3' la riga iniziale del foglio di lavoro

Do While Len ( Range (" a " & r) . Formula ) > 0

' ripetere fino alla prima cella vuota nella colonna A

con RS

. Agg.Nuovo ' crea un nuovo record

' aggiungere valori a ciascun campo del record

. campi ( " fieldname1 " ) = Range (" a" & r ) . Valore

. campi ( " FieldName2 " ) = I campi Range (" B " & r ) . Valore

. ( " FieldNameN " ) = Range (" C " & r ) . Valore

' aggiungere altri campi , se necessario ...

. Aggiorna ' memorizza il nuovo record

End With

r = r + 1' riga successiva

loop

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing End Sub

Il modello di codice crea una connessione a un database di Access VBA e inserti vari record all'interno di esso . Assicurarsi di sostituire il nome della cartella e il nome del database con il database attuale e il nome della cartella per far funzionare tutto .