首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > vbScript >

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

2012-02-10 
请问VBS释放EXCEL对象,简化代码如下VBScript codeOption ExplicitDim x1AppDim xlBookSet x1App CreateO

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

热点排行