Open Microsoft Access en druk op Alt + F om het " Options " menu-item bloot . Klik op het item en klik op ' Trust Center ' aan de linkerkant van de " Access Opties" dialoogvenster . Klik op de ' Trust Center Settings " knop , dan is de" Macro Settings " punt aan de linkerkant. Klik op de " Alle macro's inschakelen " optie , dan worden alle geopende dialoogvensters te sluiten door op de "OK "-knoppen . Kopen van 2

Druk op Alt + F11 om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in te voeren . Kies " Invoegen ", gevolgd door " Module " op de werkbalk van de IDE 's , om een ​​nieuw bestand waarin om een ​​programma in te voeren creëren ( AKA " macro . " )
3

Plak volgende programma in de nieuwe code venster :

Public Sub SayHelloFromAccess
( ) Dim applicationExcel Zoals Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Hello from Access " applicationExcel.ActiveWorkbook . SaveAs ( " c: \\ FromAccess.xls " ) applicationExcel.QuitEnd Sub
4

Klik op " Extra " en vervolgens " Referenties , " op de werkbalk van de IDE 's . Zoek in de lijst in de " References " dialoogvenster voor het item " Microsoft Excel Object Library . " Schakel het selectievakje van dat item als je het vindt , druk dan op " OK " om terug te keren naar Access ' IDE .
5

Voer het programma door te klikken ergens in het, dan op F5 te drukken . Wacht tot de cursor terug te keren naar de " Gereed" icoon na het duurt op zijn " Bezet" icoon
6

Open Windows Verkenner en gebruik deze om te navigeren naar het bestand gewoon gemaakt door uw Access- macro . : " c: \\ FromAccess.xls " . Dubbelklik op het bestand om Excel te openen , en klik op " Yes " als Excel geeft een waarschuwing over bestand opmaak . Merk op dat het Excel-spreadsheet wordt het " Hello" bericht van uw macro
7

Maak een nieuwe werkmap in Excel en opslaan als . ' C : . \\ Book1.xlsm " Maak een kleine kolom van getallen oplopende van 1 tot 10 of zo , ergens in het actieve werkblad . Selecteer de kolom en typ " mylist " en druk op " Enter " in het vak Naam van Excel 's ( in de buurt van de linkerbovenhoek van de belangrijkste Excel -scherm . )
8

Sla de werkmap , sluit Excel , druk dan op Ctrl + Alt + Delete . Klik op "Start task manager , " en klik vervolgens op het tabblad ' Processen ' van de Task Manager . Selecteer elk item dat " Excel " en klik op " Proces beëindigen " om Excel te stoppen leest . Sluit de Task Manager .
9

Plak volgende programma na de laatste verklaring van de SayHelloFromAccess programma je eerder opgaf .

Public Sub SortExcelList ( ) Dim applicationExcel Zoals Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.Open FileName : = " C : \\ Book1.xlsm " Macro1 applicationExcelapplicationExcel.ActiveWorkbook.SaveapplicationExcel.QuitEnd Sub

Sub Macro1 ( appXL Zoals Excel.Application ) Dim sel zoals RangeWith appXL.Application.Goto Referentie : . = " mylist " 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 metend metend Sub

Positie 10 de cursor ergens in de SortExcelList subroutine en druk op F5 . Open het bestand " C : \\ Book1.xlsm " . Ziet dat de kolom nummers is nu in dalende volgorde , gesorteerd door uw nieuwe Access macro

Als Access een foutbericht nadat u op F5 drukt , eind maken aan alle Excel processen met behulp van de instructies in stap 8 , herhaalt u deze stap .