从集合中添加一个对象到另一个集合

Question

我在这个类中创建了一个名为CASN的类，它有一些变量（这里并不重要）。基本上我要做的是，创建一个新的集合，并根据原始集合中的特定条件添加项目。

创建compare集合后，我会将两个集合相互比较，并将重复值保留在另一个新的result集合中。

Public Function FindDuplicates(col As Collection, wk As String) As Collection

   Dim numOrig As CASN
   Dim numComp As CASN
   Dim result As Collection
   Dim compare As Collection

   For Each numOrig In col
      If (numOrig.Week <> wk) Then
         Set numComp = New CASN
         Debug.Print numOrig.Addressxl   '''' ERROR HERE
         numComp.Addressxl = numOrig.Addressxl
         compare.Add numComp
      End If
   Next numOrig

'''''''''' OTHER PROCEDURES

End Function

修改

我删除了很多不必要的代码，并尝试将问题与上述代码隔离开来。似乎集合传递到函数中有问题吗？

  

运行时错误'13'：

     

类型不匹配

Answer 1

Debug.Print语句正在尝试将CASN.Addressxl转换为String，但未能这样做。

验证所涉及的类型。