Zjistěte, zda je aplikace k dispozici pomocí jazyka VBA v aplikaci Microsoft Excel

Chcete -li zjistit stav jakékoli konkrétní aplikace, která je k dispozici nebo běží v aplikaci Microsoft Excel, podívejte se na tento článek. Pomocí kódu VBA zkontrolujeme návrat „True“, pokud je aplikace k dispozici nebo běží nebo se vrátí, a „False“, pokud ne.

Otázka: Chtěl bych mít makro pro identifikaci na pozadí, zda je konkrétní aplikace spuštěná nebo dostupná/nainstalovaná v systému.

Chcete -li zjistit, zda je aplikace Outlook spuštěná nebo dostupná; pro spuštění VB editoru musíme provést následující kroky:

Klikněte na kartu Vývojář
Ze skupiny kódů vyberte Visual Basic

Klikněte na Vložit a poté na Modul

Tím se vytvoří nový modul
Do modulu zadejte následující kód

 Funkce ApplicationIsRunning (ApplicationClassName As String) As Boolean 'returns True if the application is running' příklad: 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

 Funkce 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

Do jakékoli buňky musíte zadat vzorec následujícím způsobem, abyste zkontrolovali, zda je v počítači nainstalována aplikace Outlook
= ApplicationIsAvailable ("Outlook.Application")

Chcete -li zjistit, zda je aplikace Outlook aktuálně spuštěna nebo ne; do libovolné buňky zadejte vzorec jako = ApplicationIsRunning ("Outlook.Application")