Apprendre comment utiliser Visual Basic pour 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 une table Access. Utilisez la bibliothèque d'objets Microsoft Excel en VBA pour ouvrir le classeur . L'objet Recordset est utilisé pour ouvrir une table existante dans Access et enregistrer des données à partir d'Excel en elle. En utilisant VBA pour importer des données peut réduire considérablement la quantité de temps que vous passez l'importation de données manuellement . Instructions
1

Lancement Microsoft Office Excel et tapez " data1 " à A2, et " data2 " en B2 . Appuyez sur " Ctrl" et " S " pour ouvrir la "Enregistrer sous" fenêtre de dialogue et enregistrer le classeur dans "C: \\ Temp \\ " as ". DataToImport.xlsx " Cliquez sur "Enregistrer " et fermez Excel.
2

lancement de Microsoft Office Access , cliquez sur " Nouvelle base de données " et cliquez sur le bouton "Créer" . Cliquez sur " Database Tools " 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 3

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

importExcelData Private Sub ()
4

Tapez la commande suivante pour créer des variables que vous utiliserez pour lire Excel :

Dim xlApp Comme Excel . Demande

xlBk As Excel.Workbook

xlSht As Excel.Worksheet
5

Tapez la commande suivante pour créer des variables que vous allez utiliser dans Access : < br >

dbRst As Recordset

Dim dbs As Database

sqlstr Dim As String
6

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

Set dbs = CurrentDb

Set xlApp = Excel.Application

Set xlBk = xlApp.Workbooks.Open ("C: \\ Temp \\ dataToImport.xlsx »)

Set xlSht = xlBk.Sheets (1)
7

Créer un nouveau tableau à 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 TEXT, columnTwo texte)"

DoCmd.SetWarnings Faux
< p> DoCmd.RunSQL ( sqlstr )
8

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

Set dbRst = dbs.OpenRecordset ( " ExcelData " )

dbRst.AddNew
9 Type de

ce qui suit pour obtenir des valeurs du classeur Excel, les enregistrer sur votre table et mettre à jour le dossier : .

xlSht.Range ( "A2" ) Sélectionnez

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

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

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

dbRst.Update
10

la fin de 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 contenues dans votre classeur Excel vient d'être importé dans votre table Access.