Sub OnClick(ByVal Item)             

Dim Wsh

Set Wsh =CreateObject("Wscript.Shell")

''下行是设置延时启动时间 5000等于5秒

'WScript.Sleep(5000)

''下行引号内填写服务器上批处理文件的共享路径

'Wsh.Run "\\服务器\fuwu.exe",false,false

''下行是设置延时清除时间 5000等于5秒

'WScript.Sleep(5000)

''下行清除进程

Wsh.Run "Taskkill /f /im excel.exe",0

Set Wsh=NoThing

WScript.quit

End Sub

//////////////////////////////////////////////////////

用上面这个脚本关闭Excel进程，我给你的脚本是抄来的，

Set Wsh = WScript.CreateObject("WScript.Shell")

这句中多了 WScript.。

改成Set Wsh = CreateObject("WScript.Shell")就对了