Excel'de bir klasörde dosya olup olmadığını nasıl kontrol ederim ve varsa onu silerim?
Bu öğreticide, Excel’de belirtilen klasörde belirli bir dosyanın olup olmadığını kontrol eden ve dosya varsa onu klasörden silen bir VBA betiğini öğreneceksiniz.
Excel'de VBA koduyla bir klasörde dosya olup olmadığını kontrol edin ve varsa silin
Aşağıdaki VBA betiği, belirtilen klasörde belirli bir dosyanın var olup olmadığını kontrol eder ve dosya mevcutsa silmenize yardımcı olur. Lütfen aşağıdaki adımları uygulayın.
1. Açık olan Excel çalışma kitabında, Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA betiğini Modül (Kod) penceresine kopyalayın.
Modül seçeneği" class="mobile-first" />
VBA kodu: Belirtilen bir klasörde dosya olup olmadığını kontrol edin ve varsa silin
Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
If Dir(FilePath) <> "" Then
MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
Kill FilePath
Else
If Dir(FilePath) = "" Then
MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
End If
End If
End Sub
Not: VBA kodunda, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx, kontrol etmek istediğiniz dosyanın yoludur. Bu örnekte, masaüstünde bulunan “save attachments” adlı klasörde “aaa” adında bir Excel dosyasının olup olmadığını kontrol ediyorum. İhtiyacınıza göre dosya yolunu ve dosya uzantısını değiştirebilirsiniz.
3. Kodu çalıştırmak için F5 tuşuna basın.
4. Dosya mevcutsa, aşağıdaki ekran görüntüsünde gösterildiği gibi bir Kutools for Excel iletişim kutusu görüntülenir. Bu dosyayı klasörden kaldırmak için Tamam düğmesine tıklayın.
Klasörde dosya mevcut değilse, sizi uyarmak için başka bir Kutools for Excel iletişim kutusu da açılacaktır.
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikten önce hiç yaşamadığınız gibi yararlanın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint’te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro'yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin