我到处搜索,看看这个问题是否有一个简单的答案,但似乎没有......
我正在使用 Excel VBA 2003(是的,我知道它已经过时,但我无法更改它),我想要做的就是列出给定中所有可读属性的名称和值自定义类。
我想做这样的事情:
类定义(名为 cFooBar 的类)
Option Explicit
Private pFoo As String
Private pBar As String
Public Property Get Foo() As String
Foo=pFoo
End Property
Public Property Get Bar() As String
Bar=pBar
End Property
调用代码
Dim myFooBar as cFooBar, P as Property
myFooBar=new cFooBar
For Each P in myFooBar.Properties
Debug.Print P.Name, P.Value
Next
当然,这不起作用,因为似乎没有自定义类的“Properties”集合成员(或者至少没有您可以获取的成员),并且没有“Property”输入其中之一。
有人知道解决这个问题的方法吗?
TIA,
坎贝尔
最佳答案
正如 John 上面提到的,VBA 不支持反射。这是我之前使用过的一个技巧。基本上,您可以创建一个 Collection 或 Dictionary 对象来按名称存储您的“属性”。
Option Explicit
Private pProperties As Object
Public Property Get Properties() As Object
Set Properties=pProperties
End Property
Public Property Let Properties(p as Object)
Set pProperties = p
End Property
Sub Class_Initialize()
Set pProperties = CreateObject("Scripting.Dictionary")
'Add/instantiate your properties here
pProperties("foo") = "this is foo"
pProperties("bar") = "this is bar"
End Sub
调用代码
Dim myFooBar As New cFooBar, P As Variant
For Each P In myFooBar.Properties.Keys()
Debug.Print P, myFooBar.Properties(P)
Next
关于excel - 列出 VBA 2003 中类的属性,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27063177/