Hur skapar jag en länk till en extern kalkylblad via VBA & tillgång ?

När Excel -användare behöver tillgång mer omfattande uppsättning databas verktyg för att manipulera sina kalkylbladsdata kan de klicka Access ” Excel ”-ikonen i ”Importera ” panel att kopiera kalkylbladsdata som en ny Access-tabell . Men om användarna i stället vill ha en enda kopia av data , kan de göra det genom att skapa en länk snarare än en separat tabell . Med VBA för att skapa denna länk befriar 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 eventuella användarfel .
1 .
Open Access och sedan skriva in Visual Basic integrerad utvecklingsmiljö ( IDE ) genom att trycka ” Alt-F11 . ” Sätt in en ny kod modul genom att välja ” Modul ” från IDE : s ” Infoga ” -menyn
2
Klistra in följande subrutin i någon del av den nya koden modul: .

Public Sub xstest ( )

DoCmd. TransferSpreadsheet acLink , 5 , _

” newtable ” , ” ” , True , ” A1 : C4 ”

End Sub
3 .
Skriv över texten ” ” ( utan citattecken ) hela sökvägen i Excel- kalkylbladet som du vill för att länka till . Dessutom skriver över texten ” A1 : C4 ” samtliga specifikation, inklusive alla områden rubriker , i tabellen i kalkylbladet som du vill att länken ska hänvisa till

Denna subrutin skapar en länk från . Excel- kalkylbladet som du anger i en tabell som heter ” newtable . ” Access VBA skapar automatiskt denna tabell för att visa länken data . Funktionen argument ” acLink ” berättar VBA för att skapa en dynamisk länk i stället importera och göra en kopia av uppgifterna .
4 .
Klicka på någon av subrutin uttalanden , tryck sedan ” F5 ” för att köra subrutin . Tryck på ” Alt-F11 ” för att åter komma in i standarden Access miljö , dubbelklicka sedan på ” newtable ”-ikonen i ” Alla tabeller ” längst till vänster på skärmen . Access kommer att visa tabellen data , som kommer att vara samma som för kalkylblad när de visas i Excel . (Observera att Microsoft har inaktiverat funktionen som ger tillgång till redigera kalkylbladsdata . )
5
Tryck på ” Alt-F11 ” för att åter komma in i Visual Basic IDE och gör sedan följande ändringar i ” xstest ” subrutin . Ändra texten ” acLink ”för 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 importen snarare än länkar till , kalkylbladsdata . Denna åtgärd kommer att ge tillgång för användare att ändra de nya tabellens data ( även om dessa förändringar inte kommer att återspeglas i tabellen ) .
6 .
Kör subrutin som du gjorde i steg 4 och sedan Tryck på ” Alt-F8 ” för att återgå till Access . Dubbelklicka på ” newtable2 ”-ikonen i skärmens vänstra rutan och sedan redigera den nya tabellen efter behov .