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 database in un unico programma, come l'accesso, 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 al database all'interno del codice VBA; stabilire e l'inserimento di record da un database in VBA è abbastanza facile per un programmatore alle prime armi per realizzare in pochi passi.

istruzione

1 Aprire Microsoft Excel.

2 Fai clic su "Strumenti", "Macro" e poi cliccare su "Visual Basic". Si aprirà l'ambiente di programmazione VBA.

3 Fai clic su "Inserisci" e "Modulo". Si è ora in un modulo di codice di programmazione.

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

ADOFromExcelToAccess Sub ()

'Esportazioni dati dal foglio di lavoro attivo a una tabella di un database di Access

'Questa procedura deve essere modificato prima dell'uso

Dim cn As ADODB.Connection, diritto del lavoro come ADODB.Recordset, r As Long

' connect to the Access database

Set CN = nuovo ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = C: \ FolderName \ databasename.mdb;"

'Aprire un recordset

Set rs = Nuovo ADODB.Recordset

rs.Open "TableName", CN, adOpenKeyset, adLockOptimistic, adCmdTable

'Tutti i record in una tabella

r = 3 'la riga iniziale del foglio di lavoro

Do While Len (Range ( "A" & R) .Formula)> 0

'Ripetere fino a quando prima cella vuota nella colonna A

con rs

.AddNew 'Creare un nuovo record

'Aggiungere i valori per ciascun campo del record

.Fields ( "FieldName1") = Range ( "A" & R) .Value

.Fields ( "FieldName2") = Range ( "B" & R) .Value

.Fields ( "FieldNameN") = Range ( "C" & R) .Value

'Aggiungere altri campi, se necessario ...

negozi .Update 'il nuovo record

End With

r = r + 1 'fila accanto

Ciclo continuo

rs.Close

Set rs = Nothing

cn.Close

Set cn = Nothing

End Sub

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