Microsoft Excel'de VBA kodunu kullanarak dosyanın belirli bir konumda olup olmadığını kontrol edebiliriz. Makro, durumu mesaj kutusu şeklinde görüntüler. Bu yazıda VBA kodu yardımıyla herhangi bir dosyanın durumunun var olup olmadığını belirleyeceğiz. Excel VBA kullanarak Dosyanın Konumda Var olup olmadığını kontrol etmek için Dir işlevini kullanabiliriz.
Bu programı kullanarak, aynı konumda zaten var olan herhangi bir dosya olup olmadığını kontrol edebiliriz. Böylece eski dosyayı silebilir veya yeniden adlandırabiliriz.
Soru: Görevi otomatikleştirmek için makro oluştururken, genellikle çıktı dosyasını bir konuma kaydederiz. Doğrulamak ve karşılığında dosyanın belirli bir yolda mevcut olup olmadığını göstermek için bir makroya sahip olmak istiyorum.
Bu örneği göstermek için “Sample.xlsx” dosyasını "D:\FolderName\Sample.xlsx" yoluna kaydedeceğiz.
Çalışma kitabının var olup olmadığını belirlemek için VB düzenleyiciyi başlatmak için aşağıdaki adımları izlememiz gerekir:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Ekle'ye ve ardından Modül'e tıklayın
- Bu yeni modül oluşturacak
- Standart Modüle aşağıdaki kodu girin
Sub FileExists() FilePath As Dize Dim Dim TestStr As Dize FilePath = "D:\FolderName\Sample.xlsx" TestStr = "" Hatada Devam Et Sonraki TestStr = Dir(FilePath) Hatada GoTo 0 Eğer TestStr = "" Sonra MsgBox " Dosya mevcut değil" Else Workbooks.Open "D:\FolderName\Sample.xlsx" End If End Sub
- Şimdi makro çalışacak şekilde ayarlandı, F5 kısayol tuşunu kullanacağız ve “Örnek” dosyası açılacak
- Dosya önceden tanımlanmış yolda mevcut değilse, aşağıdaki mesaj kutusu görüntülenecektir.
Çözüm: Bu şekilde, VBA kodunu kullanarak belirli bir dosyanın belirli bir yolda olup olmadığını kolayca anlayabiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın