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")
Závěr: Tímto způsobem můžeme zkontrolovat stav instalace konkrétní aplikace a to, zda běží, nebo ne.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail
