Excel’de VBA Makro ile Klasörden Dosya Aratmak


vba-dosya-ara-3

Excel’de VBA Makro ile Klasörden Dosya Aratmak

Makro VBE (Visual Basic Editor)’ un faydaları anlatmakla bitmez. Başlasan ömür yetmez. Yaptığımız hemen her işlemin makro ile büyük kolaylıklar sağladığını zamanla sizlerde fark edeceksiniz.

Bugün incelemek istediğim konu, Excel’de bir buton oluşturmak ve butona makro kodu atamaktır.

Belirleyeceğim makro; belirleyeceğim bir klasörde dosya araması yapacak. Bunun için çalışma sayfamıza Form Denetimleri’nden bir adet buton ekliyoruz.

Butona sağ tıklayıp, sırasıyla “Makro Ata” ve “Yeni” seçeneğine tıklıyoruz. Karşımıza Visual Basic Editor penceresi açılacak ve size vereceğim aşağıdaki kodları bu pencereye kopyalayıp, yapıştırmanız yeterli olacak.

dosya-ara

Makro Kodları

 Sub Dosya_arama()

Dim eb, cizgi

Set eb = CreateObject("Scripting.FileSystemObject")

cizgi = eb.FileExists("C:\cizgiakademi.txt")

If cizgi = True Then

MsgBox "Belirtilen klasörde böyle bir dosya mevcuttur."

Else

MsgBox "Belirtilen klasörde böyle bir dosya mevcut değildir."

End If

End Sub

Artık dosyanız hazır. Eğer C klasöründe cizgiakademi.txt isimli bir dosya mevcutsa bir mesaj kutusu belirecek, yoksa başka bir uyarı metni gelecektir.

 

Örnek Çalışma Kitabı : Excel’de VBA Makro ile Klasörden Dosya Aratmak


Excel’de VBA Makro ile Klasörden Dosya Aratmak” için 2 yorum

  1. Merhabalar makronuzu denedim ve gayet güzel çalışıyor.
    Benim yapmak istediğim de bu makro ile arayacağımız txt dosyasını oluşturmak. Userform üzerindeki Textbox’a girilecek değeri C sürücüsünde sistemin izin verdiği bir dizine kaydetmek. Bu işlemi yapacak bir makro paylaşırsanız sevinirim.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir