当前位置: 代码迷 >> vbScript >> 请教VBS释放EXCEL对象,简化代码如下
  详细解决方案

请教VBS释放EXCEL对象,简化代码如下

热度:5118   发布时间:2013-02-26 00:00:00.0
请问VBS释放EXCEL对象,简化代码如下
VBScript code
Option ExplicitDim x1AppDim xlBookSet x1App = CreateObject("Excel.Application")x1App.Workbooks.Open "C:\Documents and Settings\IBM\桌面\demo.xls"msgbox cstr(x1App.Workbooks("demo.xls").WorkSheets.count)'报错说xlApp变量未定义, 任务管理器中多出一个excel进程,说明未释放吧?set xlApp = nothing


------解决方案--------------------------------------------------------
VBScript code
xlApp.Quitset xlApp = nothing
------解决方案--------------------------------------------------------
lz,
在下面这个你引用的名字错了,

'下句还是抛出xlApp变量未定义, 任务管理器多出个EXCEL
xlApp.Quit --->x1App.quit
set xlApp = nothing --->set x1App = nothing

你这边一个是小写的l,一个数字1,写错了,所以才出现找不到变量的错误。
  相关解决方案