Begrijpen hoe te programmeren in Excel VBA van Access kunt u programma's te schrijven die data-uitwisseling tussen de twee toepassingen . Elke toepassing heeft voorzien van de ander niet , maar met behulp van wat Microsoft noemt " Automation ", kunt u elk programma geven de VBA gereedschappen en virtuele objecten van de andere . Belangrijke elementen van automatisering zijn de virtuele VBA objecten van een toepassing , zoals de Excel collectie " Werkboeken " en de " ActiveCell " eigenschap . De VBA statement dat maakt Excel objecten beschikbaar voor Toegang is " CreateObject . " Instructies Stuur gegevens naar Excel 1 Open Access , klikt u op de knop van het tabblad "Ontwikkelaar " " Visual Basic " om de Visual Basic ontwikkelomgeving in te voeren . Kopen van 2 Klik op het menu "Invoegen" de " Module " commando om een nieuw venster om het programma te houden om controle Excel , klik op het menu 'Extra' . Klik op de " Reference " commando , en klik op het selectievakje " Microsoft Excel " , zodat je programma kan toegang krijgen tot virtuele objecten van Excel . 3 Plak volgende programma in het venster . Dit programma maakt een Excel-werkmap , dan voegt tekst in een van de cellen van de werkmap . Public Sub MadeByAccess ( ) Dim aplExcel Zoals Excel.Application Stel aplExcel = CreateObject ( " Excel.Application " ) aplExcel.Workbooks.Add aplExcel.ActiveCell = " . Hello from Access " aplExcel.ActiveWorkbook.SaveAs ( " c: \\ MadeByAccess.xlsx " ) aplExcel.Quit End Sub 4 Klik op de " " menu 's" Run Run " commando om het programma uit te voeren , gebruik dan Windows Verkenner om naar de map " C : . \\ " 5 Dubbelklik op het bestand " MadeByAccess.xlsx " om dat bestand te laden in Excel . Let op de eerste cel in het eerste werkblad wordt de tekst van " Hello from Access ", die in uw programma verscheen . Lees een waarde van Excel Open Excel 6 typ vervolgens alle tekst in cel " A1 " van het eerste werkblad . Druk op " Control" en "S " gelijktijdig , typ " C : \\ ForAccess.xlsx " in de "Naam" tekstvak . Klik op " Opslaan " en druk op "Control " en " F4 " gelijktijdig naar Excel . Open Access 7 sluiten , klik vervolgens op de knop van het tabblad "Ontwikkelaar " " Visual Basic " om de Visual Basic te programmeren milieu . 8 Klik op " Reference " commando van het menu "Extra" , klik op de checkbox van de " Microsoft Excel " punt staat te stellen uw programma naar Excel te controleren . 9 Klik op "Module " commando in het menu "Invoegen " 's , dan is het volgende programma te plakken in het nieuwe venster dat verschijnt . Dit programma opent de Excel-werkmap die u hebt gemaakt in stap 1 , en leest cel " A1 " van die werkmap . Public Sub ForAccess ( ) Dim aplExcel Zoals Excel.Application Set aplExcel = CreateObject ( " Excel.Application " ) aplExcel.Workbooks.Open ( " c: \\ ForAccess.xlsx " ) MsgBox aplExcel.ActiveCell aplExcel . ActiveWorkbook.Close aplExcel.Quit End Sub 10 Klik op "Run" commando van het menu " Run " om het programma uit te voeren . Access zal een bericht met de tekst die u hebt getypt in het Excel-werkblad cel in stap een weer te geven .
|