Ak chcete zistiť stav konkrétnej aplikácie, ktorá je k dispozícii alebo je spustená v programe Microsoft Excel, pozrite sa na tento článok. Kód VBA použijeme na kontrolu vrátenia „True“, ak je aplikácia k dispozícii alebo je spustená alebo vráti, a „False“, ak nie je.
Otázka: Chcel by som mať makro na identifikáciu na pozadí, či je konkrétna aplikácia spustená alebo dostupná/nainštalovaná v systéme.
Na identifikáciu aplikácie Outlook je spustená alebo dostupná; na spustenie editora VB musíme vykonať nasledujúce kroky:
- Kliknite na kartu Vývojár
- Zo skupiny kódov vyberte Visual Basic
- Kliknite na Vložiť a potom na Modul
- Tým sa vytvorí nový modul
- Do modulu zadajte nasledujúci kód
Funkcia 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
Funkcia 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 akejkoľvek bunky musíte zadať vzorec nasledujúcim spôsobom, aby ste skontrolovali, či je v počítači nainštalovaná aplikácia Outlook
- = ApplicationIsAvailable ("Outlook.Application")
- Ak chcete zistiť, či je aplikácia Outlook aktuálne spustená alebo nie; do ľubovoľnej bunky zadajte vzorec ako = ApplicationIsRunning ("Outlook.Application")
Záver: Týmto spôsobom môžeme skontrolovať stav inštalácie konkrétnej aplikácie a či je spustená alebo nie.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku