Bir dosyanın belirli bir klasörde olup olmadığı nasıl kontrol edilir?
Farz edelim ki, birden fazla dosya içeren bir klasörünüz var ve şimdi bu klasörde Excel'den belirli bir dosya olup olmadığını belirlemek istiyorsunuz. Bu makale, belirli bir klasörde bir dosyanın var olup olmadığını ayrıntılı olarak Excel aracılığıyla kontrol etmeniz için hızlı bir yöntem sunacağım.
VBA kodlu belirli bir klasörde bir dosya olup olmadığını kontrol edin
VBA kodlu belirli bir klasörde bir dosya olup olmadığını kontrol edin
Bir dosyanın belirli bir klasörde olup olmadığını kontrol etmek için Excel çalışma sayfasında aşağıdaki VBA kodunu uygulayabilirsiniz, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Belirli bir klasörde bir dosya olup olmadığını kontrol edin:
Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
On Error GoTo 0
If FilePath = "" Then
MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
Else
MsgBox "File exist", vbInformation, "Kutools for Excel"
End If
Application.ScreenUpdating = False
End Sub
Not: Yukarıdaki kodda, dosya yolunu ve adını değiştirmelisiniz C: \ Kullanıcılar \ DT168 \ Masaüstü \ Test klasörü \ Book2.xlsx " ihtiyacınıza göre.
3. Kodu yapıştırdıktan sonra lütfen F5 bu kodu çalıştırmak için anahtar:
(1.) Dosya varsa, aşağıdaki ekran görüntüsünü alacaksınız:
(2.) Dosya yoksa, aşağıdaki uyarıyı alırsınız:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!