Styring et andet program fra Access kan gøres på flere måder. Andre applikationer, herunder Microsoft Word og Excel , kan styres via automatisering objekter, de udsætter . Eksempler på sådanne genstande omfatter et Word-dokument og en Excel sortere funktion. Access kan oprette og administrere disse objekter som udvidelser af Access selv. Ting du skal
Microsoft Access og Excel
Vis Flere Instruktioner
1
Åbn Microsoft Access og trykke Alt + F for at afsløre "Indstillinger" menupunkt. Klik på dette element, og klik derefter på " Trust Center " til venstre for " Access Options" dialogboksen . Klik på " Trust Center Settings " knappen, derefter på " Macro Settings" punkt på venstre side. Klik på "Aktiver alle makroer " valgmulighed, så luk alle åbne dialogbokse ved at trykke på deres " OK" knapperne.
2
Tryk Alt + F11 for at åbne Visual Basic integrerede udviklingsmiljø (IDE) . Vælg "Indsæt ", efterfulgt af " Module" på IDE værktøjslinje , at oprette en ny fil, hvor at indtaste et program (AKA "makro ". )
3
Indsæt følgende program ind i den nye kode vinduet : Hej
Public Sub SayHelloFromAccess ( ) Dim applicationExcel Som Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = "Hello fra Access " applicationExcel.ActiveWorkbook . SaveAs ( "c: \\ FromAccess.xls " ) applicationExcel.QuitEnd sub
4
Klik på "Funktioner " og derefter " Referencer, " på IDE værktøjslinje. Søg i listen i afsnittet "Referencer " dialogboksen for elementet "Microsoft Excel Object Library ". Vælge det emne afkrydsningsfelt , når du finder det, og derefter trykke på "OK" for at vende tilbage til Access ' IDE .
5. Udfør programmet ved at klikke et vilkårligt sted inde i det, derefter trykke F5 . Vent på markøren til at vende tilbage til sit "Ready "-ikonet efter at den får sin "Optaget " ikonet
6
Åbn Windows Stifinder , og bruge den til at navigere til den fil netop skabt af din Access-makro . : " c: \\ FromAccess.xls ". Dobbeltklik på filen for at åbne Excel, og klik på " Ja", hvis Excel viser en advarsel om fil formatering. Bemærk, at Excel-regneark viser "Hello" besked fra din makro
7
Opret en ny projektmappe i Excel og gemme det som . "C: . \\ Book1.xlsm " Opret en lille kolonne af numre stigende fra 1 til 10 eller deromkring, hvor som helst i det aktive regneark . Vælg den kolonne , og derefter skrive " MyList " og tryk " Enter" i Excel navn boks ( i øverste venstre del af den primære Excel -skærmen).
8
Gem projektmappen tæt Excel, og tryk derefter på CTRL + Alt + Delete . Klik på "Start Jobliste " og derefter klikke på Jobliste er " Processer"-fanen . Vælg hvert element , der hedder " Excel ", og klik derefter på " Afslut proces " for at stoppe Excel. Luk Task Manager.
9
Indsæt følgende program efter sidste opgørelse af SayHelloFromAccess program, du tidligere har indtastet .
Public Sub SortExcelList ( ) Dim applicationExcel Som Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.Open FileName: = " C: \\ Book1.xlsm " Macro1 applicationExcelapplicationExcel.ActiveWorkbook.SaveapplicationExcel.QuitEnd Sub
Sub Macro1 ( appXL Som Excel.Application ) Dim sel som RangeWith appXL.Application.Goto reference: . = " MyList " ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add Key : = Selection.Columns (1) _ , SortOn : = xlSortOnValues , bestil : = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd WithEnd Sub
10
Placer markøren et sted i SortExcelList subrutine og trykke F5 . Åbner filen "C: \\ Book1.xlsm " . Og bemærk, at talkolonnen er nu i faldende rækkefølge , ordnet efter din nye Access-makro
p Hvis Access viser en fejl , efter du trykker på F5 , afslutte alle Excel processer ved hjælp instruktionerne fra trin 8 , og derefter gentage dette trin.