Dosya simgesi

KTF ile Dizinin, Dosyanın Varlığının Kontrolü

Bu çalışma kitabı, bir klasör yolunun veya dosyanın bilgisayarda gerçekten bulunup bulunmadığını hücreden sorgulamayı sağlayan iki kullanıcı tanımlı fonksiyon (KTF) içerir. Fonksiyonlar sonuç olarak TRUE ya da FALSE döndürür.

Dosyanın içeriği​

Dosyada tek sayfa vardır. Sayfada A3:A6 aralığında örnek yollar yer alır:
  • A3: sayfanın başındaki açıklama metni (çalışma kitabının iki fonksiyon içerdiği belirtilir)
  • A4: c:\windows32\ (klasör yolu örneği)
  • A5: c:\windows\notepad.exe (dosya yolu örneği)
  • A6: c:\windows32\notepad.exe (dosya yolu örneği)
Sayfada hazır formül yoktur; fonksiyonlar bu örnek yollara başvurularak hücrelere yazılır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod Module1 modülündedir ve iki fonksiyondan oluşur:
  • FileExists: verilen yoldaki dosyayı Dir fonksiyonuyla arar; dosya bulunursa TRUE, bulunamazsa FALSE döndürür.
  • PathExists: GetAttr ile yolun özniteliğine bakar ve yolun bir klasör olup olmadığını denetler. Hata oluşursa (On Error Resume Next) sonuç FALSE kalır; klasör varsa TRUE döner.
Kodda dosya silme, yazma ya da dışarıya bağlantı işlemi yoktur; fonksiyonlar yalnızca okuma yapar.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Boş bir hücreye klasör yolunu sorgulamak için aşağıdaki formülü yazın:
    Excel formülü
    =PathExists(A4)
  3. Dosya sorgusu için başka bir hücrede şu formül kullanılır:
    Excel formülü
    =FileExists(A5)
  4. Kendi yollarınızı A sütunundaki hücrelere yazıp formülleri bu hücrelere yönlendirin; sonuç yol varsa TRUE, yoksa FALSE olur.
  5. Fonksiyonları başka bir çalışma kitabında kullanmak için Module1 içindeki kodu o kitabın bir modülüne kopyalayın ve dosyayı .xlsm olarak kaydedin.

cakarem tarafından daha fazla dosya

Detaylar
Yazar
cakarem
İndirme
8
Gösterim
1,539
İlk sürüm
Güncel
SHA-256
4cab02d4f515fa36d64b04795e30a423b3614359f7cb9905a8df0f701957e8f2

Puanlar

5.00 Oylama 1 İnceleme

En son değerlendirmeler

Dosyadan faydalandım, katkıda bulunanlara teşekkürler.
Geri
Üst