Lai uzzinātu jebkuras konkrētas lietojumprogrammas, kas ir pieejama vai darbojas programmā Microsoft Excel, statusu, apskatiet šo rakstu. Mēs izmantosim VBA kodu, lai pārbaudītu, vai atgriezties “True”, ja lietojumprogramma ir pieejama vai darbojas vai atgriežas, un “False”, ja nē.
Jautājums: Es vēlos, lai būtu fons, lai fonā noteiktu, vai konkrētā lietojumprogramma darbojas vai ir pieejama/instalēta sistēmā.
Lai identificētu Outlook lietojumprogrammu, kas darbojas vai ir pieejama; mums ir jāveic šādas darbības, lai palaistu VB redaktoru:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Noklikšķiniet uz Ievietot, pēc tam uz moduļa
- Tādējādi tiks izveidots jauns modulis
- Modulī ievadiet šādu kodu
Funkcija ApplicationIsRunning (ApplicationClassName As String) As Boolean 'atgriež vērtību True, ja lietojumprogramma darbojas' piemērs: ja nav ApplicationIsRunning ("Outlook.Application"), tad iziet no Sub Dim AnyApp kā objekts kļūdas atsākumā Nākamā iestatiet AnyApp = GetObject (, ApplicationClassName) ApplicationIsRunning = Not AnyApp is Nothing Set AnyApp = Nothing on Error GoTo 0 End Function
Funkcija ApplicationIsAvailable (ApplicationClassName As String) As Boolean 'atgriež vērtību True, ja lietojumprogramma ir pieejama' piemērs: Ja nav ApplicationIsAvailable ("Outlook.Application"), tad iziet no Sub Dim AnyApp kā objekts uz kļūdu Atsākt Nākamais Iestatīt AnyApp = CreateObject (ApplicationClassName) ApplicationIsAvailable = Not AnyApp is Nothing Set AnyApp = Nothing On Error GoTo 0 End Function
- Jebkurā šūnā jums jāievada formula, lai pārbaudītu, vai datorā ir instalēta Outlook lietojumprogramma
- = ApplicationIsAvailable ("Outlook.Application")
- Lai noteiktu, vai Outlook lietojumprogramma pašlaik darbojas vai ne; jebkurā šūnā ievadiet formulu kā = ApplicationIsRunning ("Outlook.Application")
Secinājums: Tādā veidā mēs varam pārbaudīt, vai konkrētās lietojumprogrammas statuss ir instalēts un vai tā darbojas vai nē.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē