GetObject无法从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

xlobj.Close