? Når Excel-brukere trenger tilgang er mer omfattende sett av database verktøy for å manipulere sine regnearkdata , kan de klikke Tilgang "Excel " ikonet i " Import "-panelet til duplisere regnearkdata som en ny Access-tabell . Men hvis brukere i stedet ønsker å opprettholde en enkel kopi av dataene, kan de gjøre dette ved å skape en kobling stedet for et separat bord . Ved hjelp av VBA til å lage denne koblingen lindrer Access-brukere for å måtte opprette den manuelt , en prosess som krever utvalget av alternativer . VBA-kode vil velge riktige alternativer , minske sjansen for mulige brukerfeil. Instruksjoner
en

Open Access , og deretter gå inn i Visual Basic integrert utviklingsmiljø (IDE ) ved å trykke "Alt- F11 . " . Sett inn en ny kode modul ved å velge " Module" fra IDE "Insert "-menyen
2

Lim inn følgende subrutine i noen del av den nye koden modul : en

Public Sub xstest ( )

DoCmd.TransferSpreadsheet acLink , 5 , _

" newtable ", " " , Sann, " A1 : C4 "

End Sub

3

Type over teksten " " (uten anførselstegn ) hele stien i Excel-regnearket du vil ha tilgang til å koble til . Også skriver over teksten " A1 : C4 " . Hele spekteret spesifikasjonen , inkludert alle felt overskrifter, av tabellen i regnearket som du vil at koblingen skal referere til

subrutine skaper en kobling fra Excel regneark du angir, i en tabell kalt " newtable . " Tilgang VBA vil automatisk opprette denne tabellen for å vise lenke data. Funksjonen argument " acLink " forteller VBA for å skape en dynamisk kobling , i stedet for å importere og lage en kopi av dataene .
4

Klikk på et av subrutinen uttalelser , og trykk "F5 " for å kjøre subrutinen . Trykk "Alt- F11 " for å gå inn igjen i standard Access- miljø, så dobbeltklikk på " newtable "-ikonet i " Alle Tables " ruten til venstre på skjermen. Tilgang vil vise tabellens data , som vil være den samme som i regnearket når de vises i Excel. (Merk at Microsoft har deaktivert funksjonen gir tilgang til å redigere regneark data . )
5

Trykk " Alt- F11 " for å gå inn igjen i Visual Basic IDE, så gjør følgende endringer i " xstest " subrutine : endre teksten " acLink " å lese " acImport , " og endre " newtable " å lese " newtable2 " . Disse endringene vil instruere VBA til å opprette en ny Access-tabell som import, snarere enn linker til , i regnearket data . Denne handlingen vil tillate Access-brukere å endre den nye tabellens data (selv om disse endringene ikke vil bli reflektert i regnearket ) .
6

Kjør subrutine som du gjorde i trinn 4 og deretter på "Alt- F8 "for å returnere til Access . Dobbeltklikk på " newtable2 "-ikonet i skjermens venstre ruten , deretter redigere den nye tabellen etter behov.