Comment contrôler un autre programme de Microsoft d'accès

Ouvrez Microsoft Access et appuyez sur Alt + F pour exposer le point de menu « Options». Cliquez cet élément , puis cliquez sur « Trust Center " à la gauche de la boîte de dialogue «Options d'accès" . Cliquez sur le bouton «Fiducie Centre Paramètres ", puis l'option " Macro Settings" sur la gauche. Cliquez sur l'option " Activer toutes les macros ", puis fermer toutes les boîtes de dialogue ouvertes en appuyant sur les boutons "OK".
2

Appuyez sur Alt + F11 pour entrer dans l'environnement de développement intégré Visual Basic (IDE). Sélectionnez " Insérer", suivi par " module " sur la barre d'outils de l' IDE, de créer un nouveau fichier dans laquelle vous pouvez entrer un programme ( AKA " macro ").
3

Collez le programme suivant dans la nouvelle fenêtre de code :

publique SayHelloFromAccess Sub ( ) Dim applicationExcel Comme Excel.ApplicationSet applicationExcel = CreateObject (" Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Bonjour à partir d'Access " applicationExcel.ActiveWorkbook . SaveAs ( "c: \\ FromAccess.xls " ) sous
4

"Outils", applicationExcel.QuitEnd clic, puis « Références », à la barre d'outils de l' IDE . Recherchez dans la liste dans la boîte de dialogue "Références" pour l'élément " Excel Bibliothèque d'objets Microsoft . " Sélectionnez la case de cet article quand vous le trouvez , puis appuyez sur «OK» pour retourner à l'accès ' IDE .
5

exécuter le programme en cliquant n'importe où à l'intérieur, puis en appuyant sur F5. Attendez que le curseur pour revenir à son icône "Prêt" après il faut sur ​​son icône «Occupé»
6

Ouvrez l'Explorateur Windows et l'utiliser pour naviguer vers le fichier vient d'être créé par votre macro Access. : "c: \\ FromAccess.xls " . Double- cliquez sur ce fichier pour l'ouvrir Excel , puis cliquez sur "Oui" si Excel affiche un avertissement concernant le formatage de fichiers. Notez que le tableur Excel affiche le message "Bonjour" à partir de votre macro
7

Créer un nouveau classeur dans Excel et l'enregistrer sous. " C : \\. Book1.xlsm " Créer une petite colonne de numéros croissants de 1 à 10 ou plus, n'importe où dans la feuille de calcul active. Sélectionnez la colonne , puis tapez " Ma Liste" et appuyez sur "Entrée " dans la boîte du nom d' Excel (près de la partie supérieure gauche de l'écran principal Excel . )
8

enregistrer le classeur , près Excel, puis appuyez sur CTRL + Alt + Suppr. Cliquez sur "Démarrer le Gestionnaire des tâches ", puis cliquez sur l'onglet "Processus" du Gestionnaire des tâches . Sélectionnez chaque élément qui le lit " Excel ", puis cliquez sur "Terminer le processus " d'arrêter Excel. Fermez le Gestionnaire des tâches.
9

Collez le programme suivant après la dernière instruction du programme SayHelloFromAccess vous avez entré plus tôt .

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

Sub Macro1 ( appXL Comme Excel.Application ) Dim sel comme RangeWith appXL.Application.Goto Référence: . = " Ma Liste" Key ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add : = Selection.Columns (1) _ , sortOn : = xlSortOnValues ​​, commander: = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd WithEnd Sous
10

Placez le curseur n'importe où dans la sous-routine SortExcelList et appuyez sur F5. Rouvrir le dossier "C: \\ Book1.xlsm " . Et notez que la colonne de chiffres est maintenant dans l'ordre décroissant , triées par votre nouvelle macro Access

Si Access affiche une erreur lorsque vous appuyez sur F5, mettre fin à toutes Excel procédés utilisant les instructions de l'étape 8, puis répétez cette étape .