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.
Hazır Kod
VBA:
Sub OpenAllExcelFiles()
Dim folderPath As String
Dim fileName As String
Dim workbooksOpened As Integer
' Dosyaların bulunduğu klasör yolu
folderPath = "C:KlasorYolu" ' Klasör yolunu buraya girin
' Belirtilen klasördeki tüm Excel dosyalarını aç
fileName = Dir(folderPath & "*.xls*") ' .xls, .xlsx, .xlsm formatları için
Do While fileName <> ""
Workbooks.Open Filename:=folderPath & fileName
workbooksOpened = workbooksOpened + 1
fileName = Dir() ' Sonraki dosyayı al
Loop
' Açılan dosya sayısını göster
MsgBox workbooksOpened & " dosya açıldı.", vbInformation
End SubAçı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.
Bu makro, büyük projelerde veya birçok farklı dosya üzerinde çalışmanız gerektiğinde zamandan tasarruf etmenizi sağlar. Kullanmadan önce, açmayı planladığınız dosya sayısının bilgisayarınızın işlem kapasitesini aşmadığından emin olun.
Faydalanılması temennisiyle