Styrning annat program från Access kan göras på flera sätt . Andra program, inklusive Microsoft Word och Excel , kan styras genom automatisering objekt de utsätter . Exempel på sådana föremål är ett Word- dokument och en Excel sorteringsfunktion . Tillträde kan skapa och hantera dessa objekt som förlängningar av Access själv . Saker du behöver
Microsoft Access och Excel
Visa fler instruktioner
1
Öppna Microsoft Access och tryck på Alt + F för att exponera " Options " i menyn . Klicka på objektet , klicka på " Säkerhetscenter " till vänster om " Access-alternativ " i dialogrutan . Klicka på " Säkerhetscenter Inställningar" , därefter " Makroinställningar " alternativ till vänster . Klicka på " Aktivera alla makron " alternativet , sedan stänga alla öppna dialogrutor genom att trycka på deras "OK" .
2
Tryck Alt + F11 för att öppna Visual Basic integrerad utvecklingsmiljö ( IDE ) . Välj " Infoga ", följt av " modul " på IDE : s verktygsfält , för att skapa en ny fil där du kan ange ett program ( AKA " macro . " ) Addera 3
Klistra in följande program in den nya koden fönster :
Public Sub SayHelloFromAccess ( ) Dim applicationExcel Som Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Hej från Access " applicationExcel.ActiveWorkbook . SaveAs ( " c : \\ FromAccess.xls " ) applicationExcel.QuitEnd sub
4
Klicka på "Verktyg " och sedan " Referenser , " på IDE : s verktygsfält . Söka i listan i " Referenser " i dialogrutan för objektet " Microsoft Excel Object Library . " Välj att objektets kryssruta när du hittar den , tryck sedan på " OK " för att återgå till Access " IDE .
5 Kör programmet genom att klicka var som helst i det , sedan trycka F5 . Vänta tills markören att återgå till sitt " Ready " -ikonen när den tar på sin " Upptagen " ikonen
6
Öppna Utforskaren och använda den för att navigera till filen bara skapas av din Access-makro . : " c: \\ FromAccess.xls " . Dubbelklicka på filen för att öppna Excel , och klicka på " Ja" om Excel visar en varning om filen formatering . Observera att Excel visar "Hello " meddelande från din makro
7
Skapa en ny arbetsbok i Excel och spara den som . " C: . \\ Book1.xlsm " Skapa en liten kolumn med tal stegrande från 1 till 10 eller så , någonstans i det aktiva kalkylbladet . Markera kolumnen , skriv sedan " Min Lista " och tryck på " Enter " i Excel rutan Namn ( nära den övre vänstra delen av den huvudsakliga Excel -skärmen . )
8
Spara arbetsboken , stäng Excel , tryck sedan på CTRL + Alt + Delete . Klicka på " Starta Aktivitetshanteraren " och sedan klicka på Aktivitetshanteraren s " Processer "-fliken . Markera varje objekt som läser " Excel " och klicka sedan på " Avsluta process " för att stoppa Excel . Stäng Aktivitetshanteraren .
9
Klistra in följande program efter den sista uttalande SayHelloFromAccess program du angett tidigare . Som Excel.ApplicationSet applicationExcel
Public Sub SortExcelList ( ) Dim applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.Open FileName : = " C : \\ Book1.xlsm " Makro1 applicationExcelapplicationExcel.ActiveWorkbook.SaveapplicationExcel.QuitEnd Sub
Sub Makro1 ( appXL Som Excel.Application ) Dim sel som RangeWith appXL.Application.Goto referens : . = " Min Lista " ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add Key : = Selection.Columns ( 1 ) _ , sortOn : = xlSortOnValues , Order : = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd WithEnd Sub
10
Placera markören någonstans i SortExcelList subrutinen och tryck på F5 . Återuppta filen " C : \\ Book1.xlsm " . Och märker att kolumnen med tal är nu i fallande ordning , sorterade efter din nya Access- makro
p Om Access visar ett felmeddelande när du trycker på F5 , avsluta alla Excel processer som använder instruktionerna från steg 8 , sedan upprepa detta steg .
