seçili eklentilerin listesi

[hsayar]

seçili eklentilerin listesini a1 den itibaren nasıl elde ederim

 

[Zeki Gürsoy]

Sub Eklentiler()
Dim e As AddIn
For Each e In Application.AddIns
    If e.Installed Then
        i = i + 1
        Cells(i, 1) = e.Name
    End If
Next
End Sub

 

[hsayar]

hocam hızınız için teşekkür eedrim.
peki b sütununda VBAProject gibi proje ismini nasıl elde edebiliriz.?

 

[Zeki Gürsoy]

Revize..

Sub Eklentiler()
Dim e As AddIn
 
For Each e In Application.AddIns
    If e.Installed Then
        i = i + 1
        Cells(i, 1) = e.Name
        Cells(i, 2) = Workbooks("" & e.Name).VBProject.Name
    End If
Next
End Sub

 

[hsayar]

hocam Teşekkür ederim ancak 4 mesajdaki kodu çalıştırdığım zaman sadece aktif kitabınkını veriyor


istedeiğim 2 mesajdaki gibi tüm eklentilerin references adlarını elde edebilmek.
Cells(i, 2) = e.xxxxxxxx[\color]
yerine ne yazılmalıdır.

 

[Zeki Gürsoy]

4. mesajı tekrar düzenledim..

 

[hsayar]

teşekkürler hocam