[已解决]运行对象变量.close后，对象不会关闭

爱疯

B.rar (6.97 KB, 下载次数: 1)

2011-6-3 13:30 上传

点击文件名下载附件

1. 
   
2. Sub test()
   
3.     Dim x As Object
   
4.     Set x = GetObject("e:\A.xls")
   
5.     x.Close
   
6. End Sub

复制代码

x.close执行后，A.xls并没关闭。
为什么这样呢？谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2011-6-3 13:43

因为X变量依旧存在，即便没打开。按照你的模式，用Open也有该问题

1. Sub test()Dim x As ObjectSet x = Workbooks.Open("e:\A.xls")x.CloseEnd Sub

复制代码

设置为Nothing之后就没了。

1. Sub test()
   
2. Dim x As Object
   
3. Set x = GetObject("e:\A.xls")
   
4. x.Close
   
5. Set x = Nothing
   
6. End Sub

复制代码

跳转到最佳答案楼层

爱疯

只有过程结束后才关闭。
这与workbooks("A.xls").close，效果不同。

1. 
   
2. Sub test2()
   
3.     '当工作簿A打开后，运行下句
   
4.     Workbooks("A.XLS").Close
   
5. End Sub

复制代码

amulee

因为X变量依旧存在，即便没打开。按照你的模式，用Open也有该问题

1. Sub test()Dim x As ObjectSet x = Workbooks.Open("e:\A.xls")x.CloseEnd Sub

复制代码

设置为Nothing之后就没了。

1. Sub test()
   
2. Dim x As Object
   
3. Set x = GetObject("e:\A.xls")
   
4. x.Close
   
5. Set x = Nothing
   
6. End Sub

复制代码

爱疯

以前觉得set x=nothing这样的语句，不太重要。
现在看来很有必要，不然要是循环很多次，就会打开很多文件，都开着就占用很多内存，甚至死机，没想到后果这么严重哇 ......
{:291:}