Variant类型对象数组元素被With语句错误释放的技术问询

当对象数组被声明为Variant类型（以便通过IsEmpty函数便捷检查是否已初始化）时，若后续将该数组的元素作为With语句的对象表达式引用（例如With VariantObjArray(i) ...），该数组元素对应的对象变量会被错误释放（不过With语句的对象变量隐式副本可在单次循环中正常工作）。此外，这种数组元素对象变量的错误释放可能造成内存泄漏，因为它发生在With表达式执行时，而非退出With语句、返回子程序或显式设置为Nothing等标准释放机制触发时。

Sub DemoVariantObjArrayBug()
    Dim i As Integer
    Dim NextWkSh As Worksheet
    Static VariantObjArray As Variant

    If IsEmpty(VariantObjArray) Then 'Check to avoid unnecessary re-allocation of static or global array variable
        ReDim VariantObjArray(1 To ThisWorkbook.Worksheets.Count)
        For Each NextWkSh In ThisWorkbook.Worksheets
            i = i + 1: Set VariantObjArray(i) = ThisWorkbook.Worksheets(i)
        Next NextWkSh
    End If
    
Stop 'and, to observe the bug, open the Locals window, expand its view of VariantObjArray, single step through
     'the following code and observe each VariantObjArray element being deallocated with each cycle's execution
     'of the "With" statement:
      
    For i = LBound(VariantObjArray) To UBound(VariantObjArray)
           With VariantObjArray(i) 'The bug workaround is to, instead of this, do something like the following...
'            Dim SomeWkSh As Object: Set SomeWkSh = VariantObjArray(i)
'            With SomeWkSh
                Debug.Print """" & .Name & """: CodeName = " & .CodeName & ", Index = " & .Index
            End With
    Next i
End Sub

解决方法 #

显式使用中间对象变量，如上述代码中被注释的替代写法：先将Variant数组元素赋值给一个显式声明的对象变量，再对该变量使用With语句。

技术问题解答 #

• 这个bug并非无人遇到过，只是相关讨论可能分散在小众VBA社区、技术论坛的角落，很多开发者遇到后直接用中间变量绕过去，没特意发帖讨论。VBA的老特性bug有时不会被广泛传播。
• 无法确定是否是近期新增，但你使用的Excel Microsoft 365 MSO（16.0.14326.21052）64位版本中确实存在。部分用户反馈在更早的365版本及2019版中也见过类似问题，所以大概率不是刚出现的新bug。
• 该bug并非仅存在于64位Office环境，目前的测试反馈显示，32位Excel 2016、365版本中也能复现这个问题。
• 这本质是对象指针丢失，而非严格意义上的内存泄漏。对于Worksheet这类内置对象，只要所属工作簿未关闭，对象本身不会被销毁，只是Variant数组元素的引用被错误清空，导致无法再通过数组访问该对象。如果是自定义类对象，可能因引用计数异常导致真正的内存泄漏，但内置对象通常不会出现这类问题。

内容的提问来源于stack exchange，提问作者pstraton