读书人

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

发布时间: 2012-02-10 21:27:41 作者: rapoo

请问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,写错了,所以才出现找不到变量的错误。

读书人网 >vbScript

热点推荐