如何更新VBA中的Ojbect字段？

Question

當我使用VBA時，我想按功能更新對象的字段，但我不知道該怎麼做。

任何一個給我一些建議？

Type MyObject 
    a as String 
    b as Boolean 
End Type 

'update function 
Sub update(ByVal o as MyObject, key as String, value as string) 
    o.key = value 'this is what I want to do! 
End sub 

我不太瞭解VBA，這可能嗎？

Answer 1

您不能設置名爲key的字段的任何值，因爲在MyObject的定義中不存在此密鑰。你可以做的是這樣的：

o.a = key 
o.b = value 

編輯

要指定要更新的字段，你可以添加一個條件語句給你工作。

If key = "a" Then 
    o.a = value 
Else 
    o.b = value 
End If 

恐怕你不能遍歷一個類型的所有字段，因爲VBA不支持反射。