Microsoft Excel'de VBA kullanılarak bir çalışma kitabının zaten açık olup olmadığını belirleme

İçindekiler

Excel'de çalışma kitabının kapalı mı yoksa açık mı olduğunu VBA kodu aracılığıyla belirleyebiliriz. Dosyanın kod modülüne yapıştırmanız gereken VBA kodu ve işlemi aşağıdadır.

1. Excel'i açın
2. ALT + F11 tuşlarına basın
3. VBA Düzenleyici AÇILACAK
4. Proje Penceresinde herhangi bir yere tıklayın
5. Ekle'ye tıklayın
6. Modül'e tıklayın

7. Kod Penceresinde Aşağıda Belirtilen Kodu Kopyalayıp Yapıştırın

İşlev WorkbookOpen(WorkBookName As String) As Boolean
' çalışma kitabı açıksa TRUE döndürür
WorkbookOpen = Yanlış
Hatada GoToWorkBookNotOpen
Len(Application.Workbooks(WorkBookName).Name) > 0 ise
WorkbookOpen = Doğru
Çıkış Fonksiyonu
Bitir
WorkBookNotOpen:
Bitiş İşlevi

8. Bu yapıştırıldıktan sonra Excel dosyasına gidin
9. A1 hücresini seçin
10. Tip = iş
11. Görüyorsunuz =workbookopen bir formül gibi görünür

12. Başlangıçta orada değildi

13. =Çalışma KitabıOpen("test1.xlsx") formülünü yazın
14. Burada örnek olarak "test1.xlsx" çalışma kitabı kullanılmıştır. Bu dosya açık değil.
15. Bu dosya açık olmadığı için “YANLIŞ” olarak görünecektir.

16. A3 hücresini seçin
17. Formülü yazın =Çalışma KitabıOpen("bir-çalışma kitabının-olduğunu-zaten-açık-kullanarak-vba-in-microsoft-excel.xlsx"-belirle")
18. Burada "bir-çalışma kitabı-is-zaten-açık-kullanarak-vba-in-microsoft-excel.xlsx" çalışma kitabı örnek olarak kullanılmıştır. Bu dosya açık.
19. Bu dosya açık olduğu için “TRUE” olarak görünecektir.

Çalışma kitabının zaten açık olup olmadığını veya Microsoft Excel 2010 ve Microsoft Excel 2013'te VBA kullanmadığını bu şekilde belirleyebiliriz.

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 yazın e-posta sitesi

Arkadaşlarınızla sayfasını paylaşan sitenin gelişimine yardımcı olacak

wave wave wave wave wave