Kapalı Dosyadan Bulma ve Değiştirme

Bu dosya, bir klasördeki kapalı Excel çalışma kitaplarında kelime aramak ve bulunan kelimeyi başka bir kelimeyle değiştirmek için hazırlanmış VBA örneğidir. İşlem, dosya açıldığında görüntülenen bir form üzerinden yürütülür. Kod incelenerek benzer uygulamaların nasıl yazıldığı öğrenilebilir.

Dosyanın içeriği​

• Sheet1: Çalışma sayfasında yalnızca C5 hücresinde bir dış bağlantı bulunur. Dosya içindeki asıl işlevi form ve makrolar sağlar.
• SRForm: Arama kutusu, değiştirme kutusu, dosya yolu kutusu, büyük/küçük harf duyarlılığı ve alt klasör seçeneği ile Bul, Değiştir ve Kapat düğmelerini içeren kullanıcı formudur.
• Module1: Dosya açılırken formu otomatik gösteren modüldür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

• AUTO_OPEN: Dosya açıldığında SRForm formunu gösterir.
• FindBtn_Click ve ReplaceBtn_Click: Sırasıyla yalnızca arama yapan ve arayıp değiştiren işlemi başlatır; ikisi de DoReplace yordamını çağırır.
• DoReplace: Arama kutusunun boş olup olmadığını ve dosya yolunun geçerliliğini denetler, belirtilen klasörü ve işaretliyse alt klasörleri tarar, sonunda bulunan veya değiştirilen dosya sayısını mesaj olarak bildirir.
• ReplaceInDir: Maskeye uyan her çalışma kitabını açar, tüm sayfalarda Find veya Replace yöntemini uygular, değişiklik olduysa dosyayı kaydeder ve kapatır.
• GetPathAndMask, GetSubdirs, ExistFileDir: Girilen yolu klasör ve dosya maskesine ayırır, alt klasörleri listeler ve yolun varlığını denetler.
• CloseBtn_Click: Formu kapatır.

Önemli: Değiştir işlemi, eşleşen dosyaları açıp kaydeder; yani dosyalar üzerinde kalıcı değişiklik yapar. Kod dosya silmez ve dışarıya bağlantı kurmaz. Yine de işlemden önce hedef klasörün yedeğini almanız önerilir. Yapılan işlemler, taranan klasörde ExcelSR_Results.txt adlı günlük dosyasına tarih ve saatle eklenir; açılamayan veya kaydedilemeyen dosyalar da buraya yazılır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin; form kendiliğinden görüntülenir.
2. Dosya yolu kutusuna klasörü ve dosya maskesini, örneğin C:\Belgelerim\*.xls biçiminde girin.
3. Arama kutusuna aranacak kelimeyi yazın. Değiştirecekseniz yeni kelimeyi değiştirme kutusuna girin.
4. Gerekirse büyük/küçük harf duyarlılığını ve alt klasör seçeneğini işaretleyin.
5. Yalnızca aramak için Bul, değiştirmek için Değiştir düğmesine basın.
6. İşlem sonunda çıkan mesajdan dosya sayısını görün; ayrıntılar için günlük dosyasına bakın.