[文本处理] [已解决]在线请教老师， bat能否实现关闭已打开的文件

7016427

请教老师，bat能否实现关闭已打开的"d:\每日文件\文件目录.xls"文件？

7016427

回复 4# tmplinshi

DAIC

回复 10# 7016427


打开命令行窗口，执行 findstr /? 可以看到每个参数的详细解释。
也可以参考别人写的教程 http://bbs.bathome.net/thread-14682-1-1.html

7016427

[请教语句问题]回复 9# DAIC
请问老师，7楼 那个 /c 是什么意思？

DAIC

回复 8# 7016427


    照抄7楼代码，不要做什么修改，那个 /c 不是C盘的意思

7016427

[测试错误]回复 7# DAIC
@echo off
for /f "tokens=2" %%i in ('tasklist /v ^| findstr /d:"每日文件\文件目录.xls"') do (
    taskkill /f /pid %%i
)
pause
请老师看看怎么改？

DAIC

回复 6# 7016427


我这里测试可以关掉。你执行这个代码把报错信息发给我看看：

for /f "tokens=2" %%i in ('tasklist /v ^| findstr /c:"文件目录.xls"') do (
    taskkill /f /pid %%i
)
pause
复制代码

7016427

[未解决！]回复 3# DAIC
执行后，文件仍然存在！

7016427

[已解决！]回复 4# tmplinshi
你好！如果能优化一下更好，看着代码较复杂！

tmplinshi

' 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
复制代码

DAIC

文件路径暂时没找到好方法，但是文件名是可以滴：

@echo off
for /f "tokens=2" %%i in ('tasklist /v ^| findstr /c:"文件目录.xls"') do (
    taskkill /f /pid %%i
)
复制代码

CrLf

干进程没问题，但一个进程里不一定只打开了一个 excel 文件