运行时数组的vba字典

Question

如何创建数组字典？我想按如下方式存储数据：

trainingdict.add empname , softskills(t1, t2, t3, t4)为给定emp提供一系列软技能培训

trainingdict.add empname , techskills(t1, t2, t3, t4)针对给定emp的技术技能培训数组

现在，我已经将训练与给定的emp连接起来，通过";“将它们连接在一起，并使用"|”在softskills (管道分隔符的左侧)和techskills (在管道分隔符的右侧)之间进行分隔，如下所示：

trainingdict.add empname , t1;t2;t3;t4 | t1;t2;t3;t4

这是有效的，但需要额外的循环来拆分分隔符和访问值。

Answer 1

为什么你不尝试添加变量作为值呢？

set d= new dictionary
v = make_variant(x,y,z)
d.Add empname, v

它的工作方式如下：

d("employee")(0) 'x
d("employee")(1) ... 'y

Answer 2

轻松跟踪正在发生的事情的一种方法是使用Type：

Option Explicit

Type SkillType
    techskills() as string
    SoftSkills() as string
end type



sub test
Dim Temp as Skilltype
Dim Arr1()
Dim Arr2()
'... populate arrays
set Temp = new Skilltype
Temp.techskills=Arr1
Temp.Softskills=Arr2
'populate dictionary
set trainingdict(empname)=Temp
end sub

注意:未经测试，但它是一个很好的参考