Forstå hvordan man programmerer Excel VBA fra Access lader dig skrive programmer, der udveksler data mellem de to programmer. Hver ansøgning er udstyret med den anden ikke gør , men ved hjælp af hvad Microsoft kalder " Automation ", kan du give hvert program VBA værktøjer og virtuelle genstande af den anden. Centrale elementer i automatisering omfatter virtuelle VBA genstande af et program , såsom Excel " projektmapper " indsamling og " ActiveCell " ejendom . VBA erklæring , der gør Excels objekter til rådighed for adgang er " CreateObject ". Instruktioner
sende data til Excel
1
Open Access, og klik derefter på "Udvikler "-fanen er " Visual Basic " for at åbne Visual Basic udviklingsmiljøet .
2 < p > Klik på " Indsæt" menuen " Module" kommando til at oprette et nyt vindue for at holde dit program til styring Excel, og klik derefter på menuen "Funktioner" . Klik på "Reference " kommando, og klik derefter på "Microsoft Excel " afkrydsningsfeltet , så dit program kan få adgang til Excels virtuelle objekter.
3
Indsæt følgende program i vinduet. Dette program skaber en Excel-projektmappe , så indsætter tekst i et af projektmappe celler.
Public Sub MadeByAccess ()
Dim aplExcel Som Excel.Application
Set aplExcel = CreateObject ( " Excel.Application " )
aplExcel.Workbooks.Add
aplExcel.ActiveCell = " . Hello fra Access "
aplExcel.ActiveWorkbook.SaveAs ( "c: \\ MadeByAccess.xlsx " )
aplExcel.Quit
End Sub
4
Klik på" Kør " menuen " Kør " kommandoen til at udføre programmet , og brug derefter Windows Explorer til at navigere til mappen " C: . \\ "
5
Dobbeltklik på filen " MadeByAccess.xlsx " for at indlæse filen i Excel. Bemærk den første celle i det første regneark viser teksten fra " Hello fra Access ", der udkom i dit program.
Læs en værdi fra Excel
6
Open Excel , og skriv derefter en tekst i celle "A1" i det første regneark . Tryk på " Control" og "S" samtidig, derefter skrive "C: \\ ForAccess.xlsx " i "Navn" tekstfeltet. Klik på "Gem ", og tryk derefter på "Control " og " F4 " samtidigt for at lukke Excel.
7
Open Access, og klik derefter på "Udvikler "-fanen er " Visual Basic " for at åbne Visual Basic programmering miljø.
8
Klik på menuen "Funktioner" s "Reference " kommando, og derefter klikke på afkrydsningsfeltet for "Microsoft Excel " punkt til at aktivere dit program til at styre Excel.
9 < p> Klik på " indsæt" menuen " Module " kommando, og derefter indsætte følgende program i det nye vindue , der vises. Dette program åbner Excel- projektmappe, du oprettede i trin 1, og læser celle " A1" fra projektmappen.
Public Sub ForAccess ()
Dim aplExcel Som Excel.Application
< p > Indstil aplExcel = CreateObject ( " Excel.Application " )
aplExcel.Workbooks.Open ( "c: \\ ForAccess.xlsx " )
MsgBox aplExcel.ActiveCell
aplExcel . ActiveWorkbook.Close
aplExcel.Quit
End Sub
10
Klik på " Kør" menuen "Kør" kommandoen til at udføre programmet. Adgang vil vise en besked boks, der viser den tekst, du har skrevet i Excel-regnearket celle i trin et .