Application.Windows() Komutu Hakkında

[Ergün Güler]

Selam,

aşağıdaki kodlar ile Kitap1.xls veya kitap2.xls haricindeki Açık olan Excel kitaplarını saymak veya işlem yapmak istiyorum. kırmızı alanı berecemedim. Nasıl yapabilirim?

For i = 1 To Application.Windows.Count
If [COLOR="Red"]Windows(i).Name[/COLOR] <> "Kitap1.xls" Or [COLOR="red"]Windows(i).Name [/COLOR]<> "Kitap2.xls" Then
say = say + 1
End If
Next

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AÇIK_EXCEL_KİTAPLARI()
    Dim KİTAP As Workbook
    
    For Each KİTAP In Excel.Application.Workbooks
        MsgBox KİTAP.Name
    Next
End Sub

 

[Ergün Güler]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AÇIK_EXCEL_KİTAPLARI()
    Dim KİTAP As Workbook
    
    For Each KİTAP In Excel.Application.Workbooks
        MsgBox KİTAP.Name
    Next
End Sub

Selam çok teşekkür ederim. Çok sağolun. verdiğiniz kodları örnek olarak aşağıdaki gibi kullanacağım.

Sub AÇIK_EXCEL_KİTAPLARI_2()
       
    For i = 1 To Workbooks.Count
    
        MsgBox  Workbooks(i).Name
        
    Next
End Sub

birkaç deneme yaptım aşağıdaki gibi de oluyor.

Sub AÇIK_EXCEL_KİTAPLARI_4()
     Dim pencere As Window
    For Each pencere In Application.Windows
    
        MsgBox  pencere.Caption
              
    Next
End Sub

İyi çalışmalar.