Hvordan kontrollere et annet program fra Microsoft Access

Kontrollerer en annen program fra Tilgang kan gjøres på flere måter. Andre programmer, inkludert Microsoft Word og Excel, kan styres gjennom automatisering objektene de utsetter. Eksempler på slike objekter omfatter et Word-dokument og en Excel sorteringsfunksjonen. Tilgang kan opprette og administrere disse objektene som en forlengelse av tilgang selv.

Bruksanvisning

1 Åpne Microsoft Access og trykk Alt + F for å eksponere de \ "Options \" menyen. Klikk dette elementet, og klikk deretter på \ "Klareringssenter \" til venstre for \ "Adgangs Options \" i dialogboksen. Klikk på \ "Trust Center-innstillinger \" -knappen, og deretter \ "Makroinnstillinger \" element på venstre side. Klikk på \ "Aktiver alle makroer \" alternativet, og deretter lukk alle åpne dialogbokser ved å trykke deres \ "OK \" knappene.

2 Trykk Alt + F11 for å gå inn i Visual Basic integrert utviklingsmiljø (IDE). Velg \ "Sett inn \" etterfulgt av \ "Module \" på IDE verktøylinje, for å lage en ny fil der du kan skrive et program (AKA \ "makro. \")

3 Lim inn følgende program i den nye koden vinduet:

Public Sub SayHelloFromAccess ()
Dim applicationExcel Som Excel.Application
Sett applicationExcel = Create (\ "Excel.Application \")
applicationExcel.Workbooks.Add
applicationExcel.ActiveCell = \ "Hei fra Access \"
applicationExcel.ActiveWorkbook.SaveAs (\ "c: \ FromAccess.xls \")
applicationExcel.Quit
End Sub

4 Klikk \ "Verktøy, \" og deretter \ "Referanser, \" på IDE verktøylinje. Søk listen i \ "Referanser \" i dialogboksen for varen \ "Microsoft Excel <versjon> Object Library. \" Velg det elementet boksen når du finner den, trykk \ "OK \" for å returnere til tilgang som IDE.

5 Kjør programmet ved å klikke hvor som helst inni den, og deretter trykke F5. Vent til markøren for å gå tilbake til sin \ "Ready \" -ikonet etter det tar på sin \ "Opptatt \" -ikonet.

6 Åpne Windows Utforsker, og bruke den til å navigere til filen nettopp opprettet av Access makro: \ "c: \ FromAccess.xls \". Dobbeltklikk filen for å åpne Excel, og klikk \ "Ja \" hvis Excel viser en advarsel om filen formatering. Legg merke til at Excel-regneark viser \ meldingen "Hei \" fra makroen.

7 Opprett en ny arbeidsbok i Excel og lagre den som \ "C: \ book1.xlsm \". Lag en liten kolonne med tall stigende 1-10 eller så, hvor som helst i det aktive regnearket. Velg kolonnen, og skriv \ "myList \" og trykk \ "Enter \" i Excel navn boksen (nær øvre venstre del av hoved Excel-skjermen.)

8 Lagre arbeidsboken, i nærheten Excel, og trykk deretter CTRL + Alt + Delete. Klikk \ "Start Oppgavebehandling, \" og klikk deretter på Oppgavebehandling er \ "Prosesser \" -kategorien. Velg hvert element som leser \ "Excel, \" og klikk på \ "End Process \" for å stoppe Excel. Lukk Oppgavebehandling.

9 Lim inn følgende program etter den siste uttalelsen fra SayHelloFromAccess programmet du skrev inn tidligere.

Public Sub SortExcelList ()
Dim applicationExcel Som Excel.Application
Sett applicationExcel = Create (\ "Excel.Application \")
applicationExcel.Workbooks.Open Filename: = \ "C: \ Book1.xlsm \"
Makro1 applicationExcel
applicationExcel.ActiveWorkbook.Save
applicationExcel.Quit
End Sub

Sub Makro1 (appXL As Excel.Application)
Dim sel As Range
med appXL

.Application.Goto Reference:=\&quot;mylist\&quot;
.ActiveSheet.Sort.SortFields.Clear
.ActiveSheet.Sort.SortFields.Add Key:=Selection.Columns(1) _
, SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortNormal
With .ActiveSheet.Sort
.SetRange Selection
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End With
End Sub

10 Plasser markøren hvor som helst i SortExcelList subrutine og trykk F5. Åpne filen \ "C: \ Book1.xlsm \" og legge merke til at kolonnen med tall er nå i synkende rekkefølge, sortert etter din nye Tilgang makro.

Hvis Tilgang viser en feilmelding når du trykker F5, ender alle Excel prosesser ved å følge instruksjonene fra trinn 8, og deretter gjenta dette trinnet.

Hint

  • Instruksjonene i artikkelen innebære å endre sikkerhetsinnstillingene for Access. Peform disse instruksjonene bare med full bevissthet om risikoen.