Copyobjects提示对象数组无效

创建选择集复制对象时一直出错，折磨两天的问题用于解决了，原来定义数组一定要定义类型。

Dim arr()

不指明，默认变体变量，这样是不行的

应该dim arr() as object ，

原来系统默认变体变量类型无法复制，对象才可以复制。