数组的内存泄漏问题

liucqa

Sub RAM_Limit()
    Dim iLen As Long
    Dim vReturn As Variant
    iLen = UBound(RAM_Consume())     '不要在函数里面直接引用新分配的数组，会造成动态分配不能释放导致内存泄漏
    Debug.Print iLen
End Sub

Sub RAM_Solve()
    Dim iLen As Long
    Dim vReturn As Variant
    vReturn = RAM_Consume()          '正确的方法
    iLen = UBound(vReturn)
    Debug.Print iLen
End Sub

Function RAM_Consume() As Long()     '返回Long数组
    Dim arrTemp(10000) As Long
    RAM_Consume = arrTemp
End Function

VBA数组进阶中的例子

liucqa

观察内存泄漏：进入任务管理器，运行程序，看Excel内存大小。

lipton

谢谢分享，以前不知道有这样的问题存在。

liucqa

VB采用计数的方式管理内存的引用，当引用计数为零的时候释放内存。在某些情况下，会导致计数方式失效。

在其他语言中也有类似的现象

7176386

强大，学习了。感谢分享谢谢。

jpj123

谢谢楼主，受教了!  

jinhaitiao16

强大，学习了。感谢分享谢谢

crystal0330

我的系统是win7,32位，2G内存，用excel2010,运行楼主的第一个错误的程序和第二个正确的程序，同时观察任务管理器的excel内存，但是奇怪的是，这两个子程序运行下来，2次的内存的数值没有变化，都是12328

小刁96333

这帖子狂顶，好棒

用心修炼

Function RAM_Consume() As Long()     '返回Long数组
    Dim arrTemp(10000) As Long
    RAM_Consume = arrTemp
End Function


这样的还是第一次见，厉害啊