? När Excel-användare behöver tillgång är mer omfattande uppsättning av databas verktyg för att manipulera sina data från kalkylark , kan de klicka Tillträde ' " Excel " -ikonen i " Importera " panelen duplicera kalkylblad data som en ny Access-tabell . Men om användarna i stället vill behålla en kopia av data , kan de göra det genom att skapa en länk istället för en separat tabell . Använda VBA för att skapa denna länk lindrar Access-användare för att behöva skapa den manuellt , en process som kräver valet av alternativ . VBA-kod kommer att välja rätt alternativ , vilket minskar risken för misstag av användaren . Instruktioner
1
Open Access , ange sedan Visual Basic integrerad utvecklingsmiljö ( IDE ) genom att trycka " Alt - F11 . " . Sätt i en ny kod modul genom att välja " Modul " från IDE : s " Infoga " -menyn
2
Klistra in följande subrutinen i någon del av den nya koden modulen :
Public Sub xstest ( ) katalog
DoCmd.TransferSpreadsheet acLink , 5 , _
" newtable " , " " , Sant , " A1 : C4 "
End Sub
3
typ över texten " " ( utan citattecken ) hela sökvägen i Excel- kalkylbladet som du vill för att länka till . Också , typ över texten " A1 : C4 " . Hela utbudet specifikation , inklusive eventuella fält rubriker i tabellen i kalkylbladet som du vill att länken ska referera till
Denna subrutin skapar en länk från Excel kalkylblad som du anger till en tabell som heter " newtable . " Tillträde VBA skapar automatiskt denna tabell för att visa länken data . Funktionen Argumentet " acLink " berättar VBA för att skapa en dynamisk länk , snarare än importen och göra en kopia av uppgifterna .
4
Klicka på någon av subrutinen uttalanden , tryck " F5 " för att köra subrutinen . Tryck på " Alt - F11 " för att åter komma in i vanliga Access- miljö , och sedan dubbelklicka på " newtable " ikonen i " alla tabeller " rutan till vänster på skärmen . Tillträde kommer att visa tabellens data , som kommer att vara densamma som i kalkylbladet när den visas i Excel . ( Notera att Microsoft har inaktiverat funktionen ger tillgång till redigera kalkylbladsdata . )
5
Tryck " Alt - F11 " för att åter komma in i Visual Basic IDE , sedan göra följande ändringar i " xstest " subrutin : ändra texten " acLink " att läsa " acImport , " och ändra " newtable " att läsa " newtable2 " . Dessa förändringar kommer att instruera VBA för att skapa en ny Access- tabell som import , snarare än länkar till de kalkylbladsdata . Denna åtgärd kommer att ge tillgång för användare att modifiera den nya tabellens data ( även om dessa ändringar inte kommer att återspeglas i tabellen ) .
6
Kör subrutinen som du gjorde i steg 4 , tryck sedan på " Alt - F8 " för att återvända till Access . Dubbelklicka på " newtable2 " ikonen i skärmens vänstra rutan och sedan redigera den nya tabellen som behövs .
