GetObject无法从VBA项目窗口中卸载

如何解决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设置为none时，将清除引用，但工作簿仍处于打开状态。这可以通过添加行来避免

xlobj.Close

在清空变量之前。