Aby sprawdzić stan dowolnej aplikacji dostępnej lub działającej w programie Microsoft Excel, zapoznaj się z tym artykułem. Użyjemy kodu VBA, aby sprawdzić, czy zwraca „Prawda”, jeśli aplikacja jest dostępna lub działa lub zwraca i „Fałsz”, jeśli nie.
Pytanie: Chciałbym mieć makro do identyfikacji w tle, czy konkretna aplikacja jest uruchomiona lub dostępna/zainstalowana w systemie.
Aby określić, czy aplikacja Outlook jest uruchomiona lub dostępna; musimy wykonać poniższe kroki, aby uruchomić edytor VB:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Kliknij Wstaw, a następnie Moduł
- Spowoduje to utworzenie nowego modułu
- Wprowadź następujący kod w module
Function ApplicationIsRunning(ApplicationClassName As String) As Boolean ' zwraca True, jeśli aplikacja jest uruchomiona ' przykład: If Not ApplicationIsRunning("Outlook.Application") Then Exit Sub Dim AnyApp As Object Po błędzie Wznów Następne Set AnyApp = GetObject(, ApplicationClassName) ApplicationIsRunning = Nie AnyApp to nic nie ustawione AnyApp = Nic w przypadku błędu Przejdź do 0 funkcji zakończenia
Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean ' zwraca wartość True, jeśli aplikacja jest dostępna ' przykład: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub Dim AnyApp As Object Po wznowieniu błędu Następny Set AnyApp = CreateObject(ApplicationClassName) ApplicationIsAvailable = Not AnyApp to nic nie ustawione AnyApp = nic w przypadku błędu Przejdź do 0 funkcji zakończenia
- W dowolnej komórce musisz wprowadzić formułę w następujący sposób, aby sprawdzić, czy aplikacja Outlook jest zainstalowana na komputerze
- =Aplikacja jest dostępna("Outlook.Aplikacja")
- Aby określić, czy aplikacja Outlook jest aktualnie uruchomiona, czy nie; w dowolnej komórce wprowadź formułę jako =ApplicationIsRunning("Outlook.Application")
Wniosek: W ten sposób możemy sprawdzić stan instalacji danej aplikacji i czy jest ona uruchomiona czy nie.
Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail