[已解决]请教大家Set xlapp.app = Nothing是什么意思，在这里有什么作用

yjwdjfqb

Private Sub Workbook_Close()
On Error Resume Next
Application.CommandBars("工具栏").Delete
Set xlapp.app = Nothing
End Sub

请教大家Set xlapp.app = Nothing是什么意思，在这里有什么作用

谢谢大家了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-3-18 16:41

释放对象。

使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用 Set 语句将 Nothing 赋值给对象变量。例如：

Set MyObject = Nothing

几个对象变量可以引用同一个实际对象。当 Nothing 被赋值给一个对象变量时，该变量不再引用任何实际对象。当几个对象变量引用同一个对象时，只有将全部对象变量都设置成 Nothing 之后，与被引用的对象有关联的内存资源及系统资源才会被释放掉，在这里，或者明确使用 Set，或者在最后一个设置成 Nothing 的对象变量超出范围后隐含地使用 Set。

跳转到最佳答案楼层

hwc2ycy

释放对象。

使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用 Set 语句将 Nothing 赋值给对象变量。例如：

Set MyObject = Nothing

几个对象变量可以引用同一个实际对象。当 Nothing 被赋值给一个对象变量时，该变量不再引用任何实际对象。当几个对象变量引用同一个对象时，只有将全部对象变量都设置成 Nothing 之后，与被引用的对象有关联的内存资源及系统资源才会被释放掉，在这里，或者明确使用 Set，或者在最后一个设置成 Nothing 的对象变量超出范围后隐含地使用 Set。