Soru klasör içerisinde sayfa saydırmak

[GursoyC]

Merhaba,
bir klasör içerisinde örneğin 10 tane ayrı excel dosyası var ve bu excel dosyalarının her birisinde birden fazla sayfa (worksheet) var.
Amacım klasör içerisinde bulunan tüm excel dosyalarının içerisindeki sadece gizlenmiş olmayan sayfaların toplam adedini bulmak.
Bunun için nasıl bir kod uygun olur yardımcı olur musunuz?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Sayfa_Say()

    Dim dosya As String, yol As String, i, s As Long

    yol = "C:\Deneme"
    dosya = Dir(yol & "\*.xls*")
    
    Application.ScreenUpdating = False
    
    Do While dosya <> ""
        Workbooks.Open ("C:\Deneme\" & dosya)
        For Each i In ActiveWorkbook.Sheets
            If i.Visible Then s = s + 1
        Next i
        Workbooks(dosya).Close SaveChanges:=False
        dosya = Dir
    Loop
    
    MsgBox "Gözüken Sayfa Sayısı: " & s
    
End Sub

 

[GursoyC]

Çok teşekkür ederim Ömer bey.
Gayet güzel çalışıyor.
Saygılar.