Για να μάθετε την κατάσταση μιας συγκεκριμένης εφαρμογής που είναι διαθέσιμη ή εκτελείται στο Microsoft Excel, ρίξτε μια ματιά σε αυτό το άρθρο. Θα χρησιμοποιήσουμε τον κωδικό VBA για να ελέγξουμε την επιστροφή "True", εάν η εφαρμογή είναι διαθέσιμη ή λειτουργεί ή επιστρέφει και "False" αν όχι.
Ερώτηση: Θα ήθελα να έχω μια μακροεντολή για να προσδιορίσω στο παρασκήνιο εάν η συγκεκριμένη εφαρμογή εκτελείται ή είναι διαθέσιμη/εγκατεστημένη στο σύστημα.
Για τον εντοπισμό της εφαρμογής Outlook που εκτελείται ή είναι διαθέσιμη. πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB:
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα
- Αυτό θα δημιουργήσει νέα ενότητα
- Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα
Λειτουργία ApplicationIsRunning (ApplicationClassName As String) Καθώς το Boolean επιστρέφει True αν η εφαρμογή εκτελείται παράδειγμα: If Not ApplicationIsRunning ("Outlook.Application") Στη συνέχεια εξέλθετε από το Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Όχι το AnyApp δεν είναι τίποτα Ορισμός AnyApp = Τίποτα στο σφάλμα Λειτουργία λήξης GoTo 0
Συνάρτηση ApplicationIsAvailable (ApplicationClassName As String) Καθώς το Boolean επιστρέφει True αν η εφαρμογή είναι διαθέσιμη, παράδειγμα: If Not ApplicationIsAvailable ("Outlook.Application") Στη συνέχεια, εξέλθετε από το Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Όχι AnyApp δεν είναι τίποτα Ορισμός AnyApp = Τίποτα στο σφάλμα Λειτουργία λήξης GoTo 0
- Σε οποιοδήποτε κελί πρέπει να εισαγάγετε τον τύπο ως εξής για να ελέγξετε εάν η εφαρμογή Outlook είναι εγκατεστημένη στον υπολογιστή
- = ApplicationIsAvailable ("Outlook.Application")
- Για να προσδιορίσετε εάν η εφαρμογή Outlook εκτελείται αυτήν τη στιγμή ή όχι. σε οποιοδήποτε κελί πληκτρολογήστε τον τύπο ως = ApplicationIsRunning ("Outlook.Application")
Συμπέρασμα: Με αυτόν τον τρόπο μπορούμε να ελέγξουμε την κατάσταση εγκατάστασης συγκεκριμένης εφαρμογής και αν λειτουργεί ή όχι.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email
