Bir nesnenin tüm özellikleri listesini alın

Question

Belirli bir nesne için geçerli tüm özelliklerin listesini almanın bir yolu var mı?

a1 hücresinden başlayıp, a1 ve a2, a3, a3, a3, a3 gibi bir çalışma sayfası nesnesinin söylenmesi için tüm geçerli özelliklerin atanması isteniyorsa, yapılabilecek bir şey var mı?

list = object.enumproperties

herhangi bir fikir: Herhangi bulamıyorum?

Answer 1

Araçlar - Referanslar - TypeLib Information. Sonra

: nesne tarayıcı

Sub DumpProperties(ByVal o As Object) 

    Dim t As TLI.TLIApplication 
    Set t = New TLI.TLIApplication 

    Dim ti As TLI.TypeInfo 
    Set ti = t.InterfaceInfoFromObject(o) 

    Dim mi As TLI.MemberInfo, i As Long 
    For Each mi In ti.Members 
    i = i + 1 
    ActiveSheet.Cells(i, 1).Value = mi.Name 
    Next 

End Sub