Apprendre à utiliser Visual Basic for Applications pour importer des données dans Access peut rendre votre application de base de données plus dynamique. Dans VBA, vous pouvez utiliser une combinaison d’objets pour ouvrir un classeur Excel existant et importer certaines données dans un tableau dans Access. Utilisez la bibliothèque d’objets Microsoft Excel dans VBA pour ouvrir le classeur. L’objet Recordset est utilisé pour ouvrir une table existante dans Access et y sauvegarder les données d’Excel. L’utilisation de VBA pour importer des données peut réduire considérablement le temps que vous passez à importer des données manuellement.
Lancez Microsoft Office Excel et tapez « data1 » dans A2, et « data2 » dans B2. Appuyez sur « Ctrl » et « S » pour ouvrir la fenêtre de dialogue « Enregistrer sous » et enregistrer le classeur dans « C:Temp » sous « dataToImport.xlsx ». Cliquez sur « Enregistrer » et fermez Excel.
Lancez Microsoft Office Access, cliquez sur « Base de données vierge » et cliquez sur le bouton « Créer ». Cliquez sur « Database Tools », puis sur « Visual Basic » pour ouvrir la fenêtre de l’éditeur VB. Cliquez sur le menu « Insérer » puis sur « Module » pour insérer un nouveau module de code. Cliquez sur le menu « Outils », cliquez sur « Références » et cochez la case à côté de « Microsoft Excel Object Library ».
Commencez par taper le code VBA suivant pour créer une nouvelle sous-procédure :
Private Sub importExcelData()
Tapez ce qui suit pour créer les variables que vous utiliserez pour lire Excel :
Dim xlApp Comme Excel.application
Dim xlBk As Excel.Workbook
Dim xlSht As Excel.feuille de travail
Tapez ce qui suit pour créer les variables que vous utiliserez dans Access :
Dim dbRst As Recordset
Dim dbs comme base de données
Dim SQLStr En tant que chaîne de caractères
Tapez ce qui suit pour définir les objets de base de données et définir le classeur Excel à utiliser :
Set dbs = CurrentDb
Set xlApp = Excel.application
Set xlBk = xlApp.Workbooks.Open(« C:TempdataToImport.xlsx »)
Set xlSht = xlBk.Sheets(1)
Créez un nouveau tableau avec deux colonnes dans Access pour importer des données à partir d’Excel. Tapez le code VBA suivant pour créer la table en utilisant l’objet « DoCmd » :
Laisser un commentaire