VBA collection函数回传

最新推荐文章于 2025-10-21 18:45:10 发布

原创最新推荐文章于 2025-10-21 18:45:10 发布 · 1.5k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vba

VBA Collection的中文资源稀缺，主要集中在基础介绍。作者在实践中遇到在Function中定义并返回Collection的问题，通过查阅微软官方论坛找到了解决方案。文章分享了如何在Sub过程中正确调用返回Collection的Function。

VBA collection函数回传

- - - - 参考: https://social.msdn.microsoft.com/Forums/en-US/62bb4c2b-0494-43c3-bb00-be6b40686aa4/vba-function-22914203092223820659-collection?forum=232

**关于VBA集合的使用网上中文资料很少，搜来搜去都是转载的同一篇关于collection的介绍。

笔者在使用collection中发现，对于在函数function中定义了collection并返还，想要用sub过程调用该function获得该collection的方法百思不得其解，后在微软官网看到一种方法**

 '关键在于这一句后面要加上As Collection ，不要加new
Function ReturnCollection() As Collection
   Dim rtnCol As  New Collection
  rtnCol.Add "A" 
  rtnCol.Add "B" 
  Set ReturnCollection = rtnCol
 End  Function

Sub TestCollection()
   Dim testCol As Collection
   Set testCol = ReturnCollection
   For i = 1 To testCol. Count
    Debug.Print testCol.Item(i)
  Next 
End  Sub
'#    ——————————————————————————————————————程序猿在人行