|
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 .
|
