|
 
- 帖子
- 977
- 积分
- 1709
- 技术
- 241
- 捐助
- 0
- 注册时间
- 2014-6-17
|
2楼
发表于 2021-7-7 19:54
| 只看该作者
本帖最后由 idwma 于 2021-7-7 20:02 编辑
<!-- ::
@echo off&setlocal enabledelayedexpansion
set "d=Y:\数据共享\生产中心\生产一部\重点项目.xls"
set "s=D:\测试组\项目A\重点项目.xls"
(tasklist /fi "imagename eq excel.exe" |find /i "excel.exe" >nul) && (for /f "delims=" %%i in ('mshta.exe "%~f0"') do set "f=%%i") || copy /y "%s%" "%d%"
if "!f!" == "1" taskkill /f /fi "imagename eq excel.exe" && copy /y "%s%" "%d%"
pause
goto :EOF
-->
<TITLE>发现有excel文件打开，是否强制关闭</TITLE>
<SCRIPT language="JavaScript">
window.resizeTo(550,110);
function closeHTA(reply){
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.GetStandardStream(1).WriteLine(reply);
window.close();
}
</SCRIPT>
<button onclick="closeHTA(1);">是(Y)，强制关闭所有Excel文件，然后进行复制操作。</button>
<button onclick="closeHTA(2);">否(N)，退出程序。</button> |
-
1
评分人数
-
|
