? Lorsque les utilisateurs d'Excel doivent avoir accès est plus vaste ensemble d'outils de base de données à manipuler leurs données d'un tableur , ils peuvent cliquer sur l'icône «Excel» de l'accès dans le panneau «Importer» pour dupliquer les données d'un tableur comme une nouvelle table Access. Mais si les utilisateurs veulent au lieu de maintenir une seule copie des données , ils peuvent le faire en créant un lien plutôt que d'un tableau distinct . En utilisant VBA pour créer ce lien soulage les utilisateurs d'accès d'avoir à créer manuellement , un processus nécessitant la sélection d'options. Code VBA va choisir les bonnes options , ce qui réduit le risque d' erreur possible de l'utilisateur. Instructions
1

Open Access , puis saisissez l'environnement de développement intégré Visual Basic (IDE ) en appuyant sur "Alt- F11. " . Insérez un nouveau module de code en sélectionnant "Module" dans le menu "Insertion" de l' IDE
2

Collez le sous-programme suivant dans n'importe quelle partie du nouveau module de code :

Public Sub xstest ()

DoCmd.TransferSpreadsheet acLink , 5, _

" newtable ", " ", True , " A1: C4 "

End Sub < br >
3

type sur le texte " " (sans les guillemets ), le chemin d'accès complet de la feuille de calcul Excel vous voulez accéder au lien. En outre , le type sur le texte " A1 : C4 " . La spécification de gamme , y compris les têtes de champ , de la table dans la feuille de calcul que vous voulez le lien se référer à

Cette sous-routine crée un lien entre l' Excel tableur vous spécifiez une table appelée " newtable . " VBA Access crée automatiquement cette table pour afficher les données de la liaison. L'argument fonction " acLink " raconte VBA pour créer un lien dynamique , plutôt que d'importer et de faire une copie des données .
4

Cliquez sur l'une des déclarations de la sous-routine, puis appuyez sur la touche "F5 " pour exécuter le sous-programme . Appuyez sur " Alt- F11 " pour rentrer dans l'environnement d'accès standard, puis double- cliquez sur l'icône " newtable " dans le volet " Tous les tableaux " à gauche de l'écran. Access affiche les données de la table , qui sera le même que celui de la feuille de calcul lorsqu'il est affiché dans Excel. (Notez que Microsoft a désactivé la fonction permettant l'accès à éditer les données d'un tableur . )
5

Appuyez sur " Alt- F11 " pour rentrer dans l'IDE Visual Basic , puis apporter les modifications suivantes à l' " xstest " sous-programme : changer le texte" acLink "pour lire " acImport "et changer " newtable "pour lire " newtable2 " . Ces changements donneront instruction VBA pour créer une nouvelle table d'accès que les importations , plutôt que des liens vers les données d'un tableur . Cette action permettra aux utilisateurs d'accès à modifier les données de la nouvelle table ( si ces modifications ne seront pas prises en compte dans le calcul ) .
6

Exécuter la routine que vous avez fait à l'étape 4 , puis appuyez sur " Alt- F8 "pour retourner à l'accès . Double- cliquez sur l'icône " newtable2 " dans le volet gauche de l' écran , puis modifiez la nouvelle table si nécessaire.