Comment utiliser VBA pour importer des données depuis Excel dans l'accès

Instructions

1. Lancez Microsoft Office Excel et tapez "data1" à A2, et "data2" en B2. Appuyez sur "Ctrl" et "S" pour ouvrir le "Enregistrer sous" fenêtre de dialogue et enregistrer le classeur dans "C: Temp " comme "dataToImport.xlsx." Cliquez sur "Enregistrer" et fermez Excel.

2. Lancez Microsoft Office Access, cliquez sur "Base de données vide" et cliquez sur le bouton "Créer". Cliquez sur "Outils de base," et cliquez sur "Visual Basic" pour ouvrir la fenêtre de l'éditeur VB. Cliquez sur le menu "Insertion" puis cliquez 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 Bibliothèque d'objets. "

3. Commencez par taper le code VBA suivant pour créer un nouveau sous-procédure:

   Private Sub importExcelData ()

4. Tapez la commande suivante pour créer des variables que vous allez utiliser pour lire Excel:

   Dim xlApp Comme Excel.Application

   Dim xlBk Comme Excel.Workbook

   Dim xlSht Comme Excel.Worksheet

5. Tapez la commande suivante pour créer des variables que vous allez utiliser dans Access:

   Dim dbRst Comme d'enregistrements

   DBS Dim comme base de données

   
   
   
   
   

   Dim sqlstr As String

6. Tapez la commande suivante pour définir des objets de base de données et également définir le classeur Excel à utiliser:

   Réglez DBS = CurrentDb

   Réglez xlApp = Excel.Application

   Réglez xlBk = xlApp.Workbooks.Open ("C: Temp dataToImport.xlsx")

   Réglez xlSht = xlBk.Sheets (1)

7. Créer une nouvelle table 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":

   Sqlstr = "CREATE TABLE Exceldata (columnOne TEXTE, columnTwo TEXTE)"

   DoCmd.SetWarnings Faux

   DoCmd.RunSQL (sqlstr)

8. Ouvrez la table que vous venez de créer en utilisant un objet de l'enregistrements. Tapez la commande suivante pour ouvrir la table et ajouter une nouvelle ligne:

   Réglez dbRst = dbs.OpenRecordset ("Exceldata")

   dbRst.AddNew

9. 
   
   

   Tapez la commande suivante pour obtenir des valeurs à partir du classeur Excel, les enregistrer sur votre table et mettre à jour la fiche:

   xlSht.Range ("A2"). Sélectionnez

   dbRst.Fields (0) .Value = xlSht.Range ("A2"). Value

   xlSht.Range ("B2"). Sélectionnez

   dbRst.Fields (1) .Value = xlSht.Range ("B2"). Value

   dbRst.Update

10. Terminez votre procédure en tapant le code VBA suivant:

    dbRst.Close

    dbs.Close

    xlBk.Close

    End Sub

11. Appuyez sur "F5" pour exécuter la procédure. Les données de votre classeur Excel vient d'être importé dans votre table Access.