VBA est un langage de programmation développé par Microsoft pour une utilisation dans un certain nombre de produits Microsoft, y compris Microsoft Office . Les programmeurs peuvent créer des bases de données dans un programme, tels que Access, puis insérer des données dans la base de données d'une autre application , comme Excel. Accès à une base de données pour insérer un enregistrement dans ce à partir de VBA nécessite une connexion à la base de données dans votre code VBA , d'établir et d'insérer des enregistrements dans une base de données dans VBA est assez facile pour un programmeur novice à accomplir en quelques étapes . Instructions
1

ouvertes .
2

"Outils ", Microsoft Excel Cliquez sur "Macro" , puis cliquez sur " Visual Basic " . Cela va ouvrir l'environnement de programmation VBA.
3

Cliquez sur "Insérer " et " Module ". Vous êtes maintenant dans un module de code de programmation
4 Type de

ou copiez et collez le subprocedures suivantes dans le module de code : . Exportations

Sous ADOFromExcelToAccess ()

' les données de la feuille de calcul active à une table dans une base de données Access

« cette procédure doivent être modifiées avant d'utiliser

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

'Connexion à la base de données Access

Set cn = New ADODB.Connection

cn.Open "Provider = Microsoft.Jet.OLEDB.4.0; " & _
< p> "Data Source = C: \\ FolderName \\ nom_base_données.mdb ; "

' ouvrir un jeu d'enregistrements

Set rs = New ADODB.Recordset

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

« tous enregistrements d'une table

r = 3 ' de la ligne de départ dans la feuille de calcul

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

« répétition jusqu'à la première cellule vide dans la colonne A

rs

. AddNew 'Créer un nouveau record
valeurs

« ajouter dans chaque champ de l'enregistrement

. Fields ( " FieldName1 ") = Range (" A " & r ) . Valeur

. Fields ( " FieldName2 " ) = Range (" B " & r). Valeur

. Fields ( " FieldNameN ") = Range (" C " & r). Valeur

«Ajouter d'autres champs si nécessaire ...

. Update ' enregistre un nouveau record

End With

r = r + 1' ligne suivante

boucle

rs.Close Photos

Set rs = Nothing

cn.Close

Set cn = Nothing End Sub

Le modèle de code crée une connexion à une base de données Access VBA et inserts divers enregistrements en même temps . Assurez-vous de remplacer le nom du dossier et le nom de base de données avec votre base de données actuelle et le nom du dossier pour que cela fonctionne .