本帖最后由 tmplinshi 于 2015-3-25 01:39 编辑
- ' 2>nul & @cscript //nologo -e:vbscript %0 "d:\每日文件\文件目录.xls" & exit/b
-
- CloseExcelWindow( WScript.Arguments(0) )
-
- Function CloseExcelWindow(FileName)
- Set xls = GetObject(FileName)
-
- ' 如果只打开了一个 Excel 窗口,xls.Close 执行后还会留下一个空白窗口。
- ' 所以,如果只打开了一个 Excel 窗口就直接退出进程,否则关闭。
- If xls.Application.WorkBooks.Count = 1 Then
- xls.Application.Quit
- Else
- xls.Close
- End If
-
- End Function
复制代码
|