Tüm Excel Dosyalarını Açma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Bu değişken, açmak istediğiniz Excel dosyalarının bulunduğu klasörün yolunu saklar. Bu yolu, kendi dosyalarınızın bulunduğu klasörün yolu ile değiştirmeniz gerekmektedir.
Faydalanılması temennisiyle
Uygulama Adımları
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Alttaki kodu yapıştırın.
Hazır Kod
VBA:
You must log in to view content
(19 satır)Açıklama
folderPath Değişkeni:Bu değişken, açmak istediğiniz Excel dosyalarının bulunduğu klasörün yolunu saklar. Bu yolu, kendi dosyalarınızın bulunduğu klasörün yolu ile değiştirmeniz gerekmektedir.
fileName ve Dir Fonksiyonu:
Dir fonksiyonu, belirtilen yolda belirtilen desene (burada .xls*, yani .xls, .xlsx, .xlsm gibi tüm Excel dosyalarını kapsar) uyan ilk dosya adını döndürür. Dosyaları açtıkça, Dir() ile sonraki dosya adları alınır.Workbooks.Open Metodu:
Her bir dosya adı için Workbooks.Open metodu kullanılarak dosyalar sırayla açılır.Dosya Sayısını Gösterme:
İşlem sonunda kaç tane dosya açıldığını gösteren bir mesaj kutusu çıkar.Nasıl Kullanılır
- Bu kodu kullanmak için, öncelikle Excel'de Alt + F11 tuşlarına basarak VBA editörünü açın.
- "Insert" menüsünden "Module" seçeneğini tıklayarak yeni bir modül oluşturun.
- Yukarıda verilen OpenAllExcelFiles subrutinini bu modüle yapıştırın.
- Klasör yolunu dosyalarınızın bulunduğu klasörle değiştirin.
- VBA editörünü kapattıktan sonra, Excel'de "Developer" sekmesi altında yer alan "Macros" butonuna tıklayarak "OpenAllExcelFiles" makrosunu seçin ve "Run" butonuna tıklayın.
Faydalanılması temennisiyle
