VBA对象变量使用疑问：重置/关闭赋值还是每次设为Nothing？

嘿，咱们来聊聊VBA里对象变量的那些事儿，刚好你问的这两个问题都是日常写代码时容易纠结的点，我结合引用计数的原理给你掰扯清楚：

问题1：重置对象变量VS先关闭对象再赋值新对象？ #

首先得明确：VBA的对象变量存的是对象的引用，不是对象本身。直接把变量赋值给新对象，会让旧对象的引用计数减1——如果计数降到0，旧对象就会被自动销毁。但这里有个关键例外：对于持有外部资源的对象（比如Workbook、ADO连接、FileSystemObject的文件句柄等），必须先调用对象的Close方法，再赋值新对象。

为啥？因为这些对象的底层资源（比如打开的文件、数据库连接），单纯靠引用计数归零没法自动释放。举个例子：如果你直接把wb变量从旧工作簿指向新工作簿，旧工作簿可能还在后台悄悄打开着，占用系统资源，甚至导致文件被锁定没法修改。

正确的操作流程是：

1. 调用对象的Close（或对应释放资源的方法，比如ADO的Close）
2. 再将变量赋值给新对象
3. 最后在变量完全不用时设为Nothing（虽然VBA会在变量超出作用域时自动处理，但显式操作更稳妥）

示例代码：

Dim wb As Workbook
Set wb = Workbooks.Open("C:\OldFile.xlsx")
' 执行文件操作
wb.Close SaveChanges:=False ' 先释放文件资源
Set wb = Workbooks.Open("C:\NewFile.xlsx") ' 再绑定新对象
' 全部操作完成后
Set wb = Nothing

问题2：循环中复用对象变量，每次用完都要设为Nothing吗？ #

从引用计数的逻辑看：当你在循环里把变量重新赋值给新对象时，旧对象的引用计数会自动减1，如果没有其他引用指向它，就会被销毁。但还是那句话——如果对象有Close方法，每次用完必须先调用Close，至于Set ... = Nothing，显式做的话能确保引用计数及时归零，避免潜在的资源泄漏，尤其是在循环次数多的场景下。

你担心的“检索对象的先前状态”其实不用纠结：一旦把变量赋值给新对象，旧对象的引用就被覆盖了——除非你之前用另一个变量保存了旧对象的引用，否则旧对象会被销毁，根本没法再访问它的状态。既然你明确切换后不需要旧状态，那每次用完就清理是更安全的做法。

循环复用的示例代码：

Dim wb As Workbook
Dim filePaths As Variant
filePaths = Array("C:\File1.xlsx", "C:\File2.xlsx", "C:\File3.xlsx")

For Each filePath In filePaths
    ' 检查是否已有绑定的对象，先清理
    If Not wb Is Nothing Then
        wb.Close SaveChanges:=False
        Set wb = Nothing ' 显式释放引用
    End If
    Set wb = Workbooks.Open(filePath)
    ' 执行当前文件的操作
Next filePath

' 循环结束后，别忘了清理最后一个对象
If Not wb Is Nothing Then
    wb.Close SaveChanges:=False
    Set wb = Nothing
End If

总结一下：核心原则是先释放对象持有的外部资源（调用Close），再处理引用变量，显式设为Nothing不是强制要求，但能让代码更健壮，避免隐藏的资源泄漏问题。

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