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.
