Microsoft Excel'de bulunan veya çalışan herhangi bir uygulamanın durumunu öğrenmek için bu makaleye göz atın. VBA kodunu, uygulamanın mevcut olup olmadığını veya çalışıyorsa "Doğru" olup olmadığını veya yoksa "Yanlış" olup olmadığını kontrol etmek için kullanacağız.
Soru: Arka planda belirli bir uygulamanın çalışıp çalışmadığını veya sistemde kullanılabilir/yüklü olup olmadığını belirlemek için bir makroya sahip olmak istiyorum.
Outlook uygulamasının çalışmakta veya kullanılabilir durumda olduğunu belirlemek için; VB editörünü başlatmak için aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Ekle'ye ve ardından Modül'e tıklayın
- Bu yeni modül oluşturacak
- Modüle aşağıdaki kodu girin
İşlev ApplicationIsRunning(ApplicationClassName As String) As Boolean ', uygulama çalışıyorsa True döndürür ' örnek: If Not ApplicationIsRunning("Outlook.Application") Sonra Sub Dim AnyApp As Object On Error Resume Set AnyApp = GetObject(, ApplicationClassName) ApplicationIsRunning = Not AnyApp Hiçbir Şey Ayarlanmadı AnyApp = Hatada Hiçbir Şey Yok GoTo 0 End Function
İşlev ApplicationIsAvailable(ApplicationClassName As String) As Boolean ', uygulama mevcutsa True döndürür ' örnek: If Not ApplicationIsAvailable("Outlook.Application") Sonra Sub Dim AnyApp'den Çık Hatada Nesne Olarak Devam Et Sonraki Set AnyApp = CreateObject(ApplicationClassName) ApplicationIsAvailable = Not AnyApp Hiçbir Şey Ayarlanmadı AnyApp = Hatada Hiçbir Şey Yok Git 0 Bitiş İşlevi
- Herhangi bir hücreye, bilgisayarda Outlook Uygulamasının kurulu olup olmadığını kontrol etmek için aşağıdaki gibi formülü girmeniz gerekir.
- =ApplicationIsAvailable("Outlook.Application")
- Outlook Uygulamasının şu anda çalışıp çalışmadığını belirlemek için; herhangi bir hücreye formülü şu şekilde girin =ApplicationIsRunning("Outlook.Application")
Çözüm: Bu şekilde, belirli bir uygulamanın kurulu olup olmadığını ve çalışıp çalışmadığını kontrol edebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın