GetObject未从VBA项目窗口卸载

我有下面的VBA代码

Sub test2()

Set xlobj = GetObject("C:\Users\osknows\Desktop\One of each\Jan_2011.xls")
With xlobj
    For Each wsobj In .Worksheets
     Set rngobj = wsobj.UsedRange
     arrArray = rngobj.Value
    Next
End With

Erase arrArray
Set rngobj = Nothing
Set xlobj = Nothing

End Sub

问题是，一旦运行并退出子系统，Jan_2011.xls详细信息仍在VBA项目窗口中。我希望通过设置xlobj=Nothing，这种情况就会消失

---

有什么想法吗？

包含GetObject的行做了两件事：它打开工作簿并使xlobj引用工作簿。当xlobj设置为“无”时，引用将被清除，但工作簿仍处于打开状态。这可以通过添加行来避免

xlobj.Close

---

在清空变量之前。

包含GetObject的行执行两件事：打开工作簿并使xlobj引用工作簿。当xlobj设置为“无”时，引用将被清除，但工作簿仍处于打开状态。这可以通过添加行来避免

xlobj.Close

在清空变量之前