Če želite izvedeti stanje katere koli posebne aplikacije, ki je na voljo ali deluje v programu Microsoft Excel, si oglejte ta članek. Za preverjanje vrnitve vrednosti »True« bomo uporabili kodo VBA, če je aplikacija na voljo ali deluje ali se vrne, in »False«, če ne.
Vprašanje: Rad bi imel makro, s katerim bi v ozadju ugotovil, ali je določena aplikacija v teku ali je na voljo/nameščena v sistemu.
Za ugotavljanje, ali je aplikacija Outlook zagnana ali na voljo; Za zagon urejevalnika VB moramo slediti spodnjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Kliknite Vstavi in nato Modul
- To bo ustvarilo nov modul
- V modul vnesite naslednjo kodo
Funkcija ApplicationIsRunning (ApplicationClassName As String) Kot Boolean "vrne True, če aplikacija deluje" primer: Če ni ApplicationIsRunning ("Outlook.Application") Nato zapustite Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Ni AnyApp Ni nič Nastavljeno AnyApp = Nič pri napaki Pojdi na 0 Končaj funkcijo
Funkcija ApplicationIsAvailable (ApplicationClassName As String) Kot Boolean "vrne True, če je aplikacija na voljo" primer: Če ni ApplicationIsAvailable ("Outlook.Application") Nato zapustite Sub Dim AnyApp As Object On Error Resume Next Set AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Ni AnyApp Ni nič Nastavljeno AnyApp = Nič pri napaki Pojdi na 0 Končaj funkcijo
- V katero koli celico morate vnesti naslednjo formulo, da preverite, ali je aplikacija Outlook nameščena na računalniku
- = ApplicationIsAvailable ("Outlook.Application")
- Če želite ugotoviti, ali se aplikacija Outlook trenutno izvaja ali ne; v katero koli celico vnesite formulo kot = ApplicationIsRunning ("Outlook.Application")
Zaključek: Na ta način lahko preverimo, ali je določena aplikacija nameščena in ali se izvaja ali ne.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte