Excel 如何从字典中打印类

我正致力于实现一个字典，该字典在每个键上保存多个值，因此我修改了本教程/示例中的代码：

我用以下代码创建了一个名为

clsAI_App

的类：

Public ApplicationID As String
Public AIName As String
Public DoseApplied As Double

在我的模块中使用了以下位：

For k = LBound(contents, 2) To UBound(contents, 2)
        Set oApplication = New clsAI_App
        oApplication.ApplicationID = Row & "-" & k
        oApplication.AIName = contents(1, k)
        oApplication.DoseApplied = contents(2, k) * wks_In.Cells(Row, 5)
        dict.Add oApplication.ApplicationID, oApplication
next k

其中，

Row

和

k

是整数值，

contents（）

是（1,3）（1,5）的矩阵

现在，如果我使用打印字典的方法，答案如下：

Dim key As Variant
For Each key In dict.Keys
    Debug.Print key, dict(key) 
Next key

我最终得到了错误438：

对象不支持此属性或方法

---

描述过于宽泛。因此，我不知道我在这里做错了什么。

我没有看到您发布的链接，但是由于您加载了一个对象（

oaapplication

）并且

调试。Print

返回字符串，您必须调整代码以返回一个字符串类属性。我会尝试：

Debug.Print key, dict(key).DoseApplied...

如果讨论中的类具有许多这样的属性，则可以提取所有这些属性

字典是一个强大的工具，能够保存各种变量、对象，甚至函数