- VBScript code
Option Explicit Dim x1App Dim xlBook Set x1App = CreateObject("Excel.Application") x1App.Workbooks.Open "C:Documents and SettingsIBM桌面demo.xls" msgbox cstr(x1App.Workbooks("demo.xls").WorkSheets.count) '报错说xlApp变量未定义, 任务管理器中多出一个excel进程,说明未释放吧? set xlApp = nothing
------解决方案--------------------
- VBScript code
xlApp.Quit set xlApp = nothing
------解决方案--------------------
lz,
在下面这个你引用的名字错了,
'下句还是抛出xlApp变量未定义, 任务管理器多出个EXCEL
xlApp.Quit --->x1App.quit
set xlApp = nothing --->set x1App = nothing
你这边一个是小写的l,一个数字1,写错了,所以才出现找不到变量的错误。