Excel VBA - 类模块逻辑

Question

我刚刚学习Excel VBA，我在这里想到了一些概念。

比方说，我有一个5个汽车品牌的表格。我想将这些阅读到我自己的汽车品牌课程模块中，然后列出他们的名字。

我有两种方法可以做到这一点，只有一种方法可行。我想知道是否有人可以解释为什么？

工作版本：

dim colCarBrands as new collection 

For i = 1 To 5 

    Dim newCarBrand As clsCarBrand 
    Set clsCarBrand = New clsCarBrand 

    newCarBrand.BrandName chaletsSheet.Cells(i, 1) 

    colCarBrands.Add newCarBrand , newChalet.nameTechnical 


Next 

Dim b As clsCarBrand 
For Each b In colCarBrands 
    ' Print items 
    Debug.Print b.BrandName 
Next 

不工作版本：

dim colCarBrands as new collection 

For i = 1 To 5 

    Dim newCarBrand As New clsCarBrand 

    newCarBrand.BrandName chaletsSheet.Cells(i, 1) 

    colCarBrands.Add newCarBrand , newChalet.nameTechnical 


Next 

Dim b As clsCarBrand 
For Each b In colCarBrands 
    ' Print items 
    Debug.Print b.BrandName 
Next 

在这个版本中，所有汽车品牌的集合中是相同的一个（这是从最后一个sheet）

任何想法为什么？

谢谢！

Answer 1

在第二个版本中，Dim newCarBrand As New clsCarBrand创建该类的单个实例。后续遍历该循环只需更改其BrandName属性，然后将另一个对该对象的引用添加到集合中。如果您将Dim语句移到循环之前，这将更清楚。 Dim语句不是可重复运行的可执行语句。

在第一种情况下，Set语句会创建对象的新实例，每个实例都会添加到集合中。