Vba kullanılarak dosyanın mevcut olup olmadığı nasıl kontrol edilir (örnekle)

Belirli bir klasörde belirli bir dosyanın bulunup bulunmadığını kontrol etmek için VBA’daki Dir işlevini kullanabilirsiniz.

Bu ifadeyi pratikte kullanmanın yaygın bir yolu şudur:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Bu özel makro, kullanıcının bir dosyanın var olup olmadığını kontrol etmek için dosyanın tam yolunu girebileceği bir giriş kutusu yaratacaktır.

Kullanıcı dosya yolunu girdikten sonra makro, dosyanın var olup olmadığını belirten bir mesaj kutusu oluşturacaktır.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA kullanarak dosyanın mevcut olup olmadığını kontrol edin

Aşağıdaki konumda bir klasörümüz olduğunu varsayalım:

C:\Kullanıcılar\bob\Documents\current_data

Bu klasörde üç CSV dosyası bulunur:

Diyelim ki bu klasörde futbol_data.csv adlı bir dosyanın olup olmadığını kontrol etmek için VBA’yı kullanmak istiyoruz.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCheckFileExists ()

'ask user to type path to file
InputFile = InputBox(" Check if this file exists: ")

'check if file exists and output results to message box
If Dir(InputFile) <> "" Then
    MsgBox “ This File Exists ”
Else
    MsgBox “ This File Does Not Exist ”
End If

End Sub

Bu makroyu çalıştırdığımızda dosya yolunu girebileceğimiz bir giriş kutusu belirir:

Soccer_data.csv dosyasının tam yolunu gireceğiz:

Tamam’a tıkladığımızda, dosyanın belirttiğimiz klasörde olup olmadığını bize bildirecek bir mesaj kutusu görünecektir:

Mesaj kutusu bize dosyanın var olduğunu bildirir.

Not : Dir işlevine ilişkin tüm belgeleri burada bulabilirsiniz .

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA Kullanarak Klasörler Nasıl Oluşturulur
VBA kullanarak klasörler nasıl silinir
VBA kullanarak dosyalar nasıl silinir