Tüm Açık Dosyalar Arasında Gezinmek

Workbooks Koleksiyonu

Ekranda açık olan 5 dosya varsa, döngüyle hepsine tek tek bağlanıp içlerinden veri çekebiliriz.

VBA Kodu:

Sub AcikDosyalar()
    Dim wb As Workbook
    For Each wb In Workbooks
        MsgBox "Açık Dosya: " & wb.Name
    Next wb
End Sub

Ne Göreceksiniz? Excel'de kaç dosya açıksa, sırayla hepsinin adını söyleyen mesaj kutuları ardı ardına ekrana gelecektir.