Bestimmen Sie, ob eine Anwendung verfügbar mit VBA in Microsoft Excel ist
Um den Status einer bestimmten Anwendung zu ermitteln, die in Microsoft Excel verfügbar ist oder ausgeführt wird, lesen Sie diesen Artikel. Wir werden VBA-Code verwenden, um zu überprüfen, ob „True“ zurückgegeben wird, wenn die Anwendung verfügbar ist oder ausgeführt wird, oder um „False“ zurückzugeben, wenn nicht.
Frage: Ich hätte gerne ein Makro, um im Hintergrund zu identifizieren, ob die spezifische Anwendung ausgeführt wird oder im System verfügbar / installiert ist.
So identifizieren Sie, dass 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 in der Gruppe Code Visual Basic
aus * Klicken Sie auf Einfügen und dann auf Modul
Dadurch wird ein neues Modul erstellt. Geben Sie den folgenden Code in das Modul
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean
' returns True if the application is running
' example: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub
Dim AnyApp As Object
On Error Resume Next
Set AnyApp = GetObject(, ApplicationClassName)
ApplicationIsRunning = Not AnyApp Is Nothing
Set AnyApp = Nothing
On Error GoTo 0
End Function
ein
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean
' returns True if the application is available
' example: 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
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Sie können uns auch auf Twitter und Facebook folgen.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns an [email protected]