Um den Status einer bestimmten Anwendung herauszufinden, die in Microsoft Excel verfügbar ist oder ausgeführt wird, werfen Sie einen Blick auf diesen Artikel. Wir verwenden VBA-Code, um zu überprüfen, ob die Anwendung verfügbar ist oder ausgeführt wird oder "True" zurückgibt, und "False", wenn nicht.
Frage: Ich hätte gerne ein Makro, um im Hintergrund zu erkennen, ob die jeweilige Anwendung läuft oder im System verfügbar/installiert ist.
Um zu identifizieren, ob die Outlook-Anwendung ausgeführt wird oder verfügbar ist; Wir müssen die folgenden Schritte ausführen, um den VB-Editor zu starten:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
- Klicken Sie auf Einfügen und dann auf Modul
- Dadurch wird ein neues Modul erstellt
- Geben Sie den folgenden Code in das Modul ein
Funktion ApplicationIsRunning(ApplicationClassName As String) As Boolean ' gibt True zurück, wenn die Anwendung ausgeführt wird ' Beispiel: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject(, ApplicationClassName) ApplicationIsRunning = Nicht AnyApp ist nichts Set AnyApp = Nichts bei Fehler GoTo 0 End Function
Funktion ApplicationIsAvailable(ApplicationClassName As String) As Boolean ' gibt True zurück, wenn die Anwendung verfügbar ist ' Beispiel: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject(ApplicationClassName) ApplicationIsAvailable = Not AnyApp Is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- In jede Zelle müssen Sie die Formel wie folgt eingeben, um zu überprüfen, ob die Outlook-Anwendung auf dem PC installiert ist
- =ApplicationIsAvailable("Outlook.Application")
- Um festzustellen, ob die Outlook-Anwendung derzeit ausgeführt wird oder nicht; Geben Sie in einer beliebigen Zelle die Formel als =ApplicationIsRunning("Outlook.Application") ein
Abschluss: Auf diese Weise können wir den Status einer bestimmten Anwendung überprüfen, ob sie installiert ist und ob sie ausgeführt wird oder nicht.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site