Πώς να ελέγξει ένα άλλο πρόγραμμα από τη Microsoft Access

Έλεγχος άλλο πρόγραμμα από την Access μπορεί να γίνει με διάφορους τρόπους . Άλλες εφαρμογές , όπως το Microsoft Word και το Excel , μπορεί να ελεγχθεί μέσω των αντικειμένων αυτοματισμού εκθέτουν . Παραδείγματα τέτοιων αντικειμένων περιλαμβάνει ένα έγγραφο του Word και μια λειτουργία ταξινόμησης Excel . Η πρόσβαση μπορεί να δημιουργήσει και να διαχειριστεί αυτά τα αντικείμενα ως προεκτάσεις της ίδιας της Access. Τα πράγματα που θα χρειαστείτε για Microsoft Access και το Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Access και πατήστε Alt + F για να εκθέσει το "Options" από το μενού. Κάντε κλικ αυτό το στοιχείο , στη συνέχεια, κάντε κλικ στο " Κέντρο αξιοπιστίας " στην αριστερή πλευρά του πλαισίου διαλόγου " Επιλογές της Access " . Κάντε κλικ στο κουμπί " Ρυθμίσεις Κέντρου αξιοπιστίας " , τότε το "Macro Settings" στοιχείο στα αριστερά . Κάντε κλικ στο " Ενεργοποίηση όλων των μακροεντολών " επιλογή , στη συνέχεια, κλείστε όλα τα ανοιχτά παράθυρα διαλόγου πατώντας τα κουμπιά "OK" . 2

Πατήστε Alt + F11 για να εισάγετε το Visual Basic ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) . Επιλέξτε "Εισαγωγή ", ακολουθούμενη από την " Ενότητα " στη γραμμή εργαλείων του IDE είναι , για να δημιουργήσετε ένα νέο αρχείο στο οποίο να εισάγετε ένα πρόγραμμα ( AKA " macro ").
Εικόνων 3

Επικολλήστε τον ακόλουθο πρόγραμμα στο νέο παράθυρο κώδικα :

Public Sub SayHelloFromAccess ( ) Dim applicationExcel Όπως Excel.ApplicationSet applicationExcel = CreateObject ( " Excel.Application " ) applicationExcel.Workbooks.AddapplicationExcel.ActiveCell = " Γεια σας από την Access " applicationExcel.ActiveWorkbook . SaveAs ( "c : \\ FromAccess.xls " ) applicationExcel.QuitEnd Sub
Η

4 Κάντε κλικ στο " Εργαλεία " και στη συνέχεια "Αναφορές " στη γραμμή εργαλείων του IDE της . Αναζητήστε τη λίστα στο "Αναφορές " παράθυρο διαλόγου για το στοιχείο "Microsoft Excel βιβλιοθήκη αντικειμένων . " Επιλέξτε το πλαίσιο ελέγχου του συγκεκριμένου στοιχείου , όταν το βρείτε , στη συνέχεια, πατήστε το κουμπί " OK " για να επιστρέψετε στην IDE Access » .
5

Εκτελέστε το πρόγραμμα κάνοντας κλικ οπουδήποτε μέσα σε αυτό , στη συνέχεια, πατώντας F5 . Περιμένετε για το δρομέα για να επιστρέψετε στο εικονίδιο του "Ready" αφού παίρνει " Busy " εικονίδιο της
Η 6

Ανοίξτε την Εξερεύνηση των Windows και να το χρησιμοποιήσετε για να πλοηγηθείτε στο αρχείο που μόλις δημιουργήσατε από μακροοικονομική της Access . : "c : \\ FromAccess.xls " . Κάντε διπλό κλικ σε αυτό το αρχείο για να ανοίξετε το Excel , και κάντε κλικ στο " Ναι " , εάν το Excel εμφανίζει μια προειδοποίηση σχετικά με τη μορφοποίηση του αρχείου . Παρατηρήστε ότι το υπολογιστικό φύλλο Excel εμφανίζει το μήνυμα " Hello " από τη μακροοικονομική σας
Η 7

Δημιουργήστε ένα νέο βιβλίο εργασίας στο Excel και να το αποθηκεύσετε ως . " C : \\. Book1.xlsm " Δημιουργήσει μια μικρή στήλη αριθμών αύξουσα από 1 έως 10 ή έτσι , οπουδήποτε στον ενεργό φύλλο εργασίας . Επιλέξτε τη στήλη , στη συνέχεια, πληκτρολογήστε " mylist " και πατήστε το πλήκτρο " Enter" στο πλαίσιο Όνομα του Excel (κοντά στο επάνω αριστερό μέρος της κύριας οθόνης του Excel . )
8

Αποθηκεύστε το βιβλίο εργασίας , το Excel κοντά , στη συνέχεια, πατήστε CTRL + Alt + Delete . Κάντε κλικ στο κουμπί "Start Task Manager, " και στη συνέχεια κάντε κλικ στο " Διεργασίες" καρτέλα του Διαχειριστή της Task . Επιλέξτε κάθε στοιχείο που διαβάζει " Excel " και στη συνέχεια κάντε κλικ στο κουμπί " Τέλος διεργασίας " για να σταματήσει το Excel . Κλείστε το Task Manager .
Η 9

Επικολλήστε τον ακόλουθο πρόγραμμα μετά την τελευταία δήλωση του προγράμματος SayHelloFromAccess δώσατε προηγουμένως .

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

Sub Macro1 ( appXL Όπως Excel.Application ) Dim sel Όπως RangeWith appXL.Application.Goto Reference : = " mylist " ActiveSheet.Sort.SortFields.Clear.ActiveSheet.Sort.SortFields.Add κλειδί : . = Selection.Columns ( 1 ) _ , SortOn : = xlSortOnValues ​​, Παραγγελία : = xlDescending , _DataOption : . = xlSortNormalWith ActiveSheet.Sort.SetRange Selection.Header = xlGuess.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd WithEnd Sub
Η 10

Τοποθετήστε το δρομέα σε οποιοδήποτε σημείο της υπορουτίνας SortExcelList και πατήστε F5 . Ανοίξτε ξανά το αρχείο " C : \\ Book1.xlsm " . Και να παρατηρήσετε ότι η στήλη των αριθμών είναι πλέον σε φθίνουσα σειρά, κατατάσσονται σύμφωνα με τη νέα μακροεντολή της Access

Εάν η Access εμφανίζει ένα σφάλμα αφού πατήσετε F5 , τέλος όλα Excel διαδικασίες , χρησιμοποιώντας τις οδηγίες από το Βήμα 8 , στη συνέχεια, επαναλάβετε αυτό το βήμα .
Η
εικόνων