[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回复 5# 7016427
执行时,错误,找不到Excel.exe进程!

TOP

回复 5# 7016427
3楼的执行时,闪一下就结束了!条件成立,并没有成功复制文件!

TOP

本帖最后由 pcl_test 于 2015-5-16 19:38 编辑

回复 5# 7016427

什么问题,要反映出来,未解决谁知道你什么问题?上传的你的xls表格

TOP

[未解决]请各位高手看看,这样的bat复制文件怎么编辑

回复 4# CrLf

TOP

[未解决!] 请各位高手看看,这样的bat复制文件怎么编辑

回复 3# pcl_test

TOP

推广一下,3 楼转成 mshta 混编就是这样:
  1. <!-- :
  2. @echo off&cls
  3. for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do set "t=%%a"
  4. set "y=%t:~0,4%"
  5. set "m=%t:~4,2%"
  6. if %m:~,1% equ 0 set "m=%m:~-1%"
  7. set d=%t:~6,2%
  8. if %d:~,1% equ 0 set "m=%d:~-1%"
  9. set "getdate=%y%/%m%/%d%"
  10. for /f "delims=" %%b in ('mshta "%~fs0"') do set "xlsdate=%%b"
  11. if "%getdate%" equ "%xlsdate%" (taskkill /f /im excel.exe &copy "D:\aa\542.xls" "E:\rb\") else (taskkill /f /im excel.exe)
  12. pause
  13. -->
  14. <script src=http://www.bathome.net/lib/diy/hide.js></script>
  15. <script src=http://www.bathome.net/lib/diy/WSH.js></script>
  16. <script language=vbscript>
  17. Dim oExcel,oWb,oSheet
  18. Set oExcel= CreateObject("Excel.Application")
  19. Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls")
  20. Set oSheet = oWb.Sheets("Sheet1")
  21. Wscript.echo oSheet.Range("E2").Value
  22. </script>
复制代码
这样就不怎么破坏 bat 的格式了,代价是不能离线运行,若要脱网得运行一次 Libs.offline() 将脚本转为离线
话说我好像把批处理之家玩坏了,说好的批处理呢...

TOP

本帖最后由 pcl_test 于 2015-5-16 17:58 编辑
  1. ' 2>nul 3>nul&@echo off&cls
  2. '&for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do set "t=%%a"
  3. '&set "y=%t:~0,4%"
  4. '&set "m=%t:~4,2%"
  5. '&if %m:~,1% equ 0 set "m=%m:~-1%"
  6. '&set d=%t:~6,2%
  7. '&if %d:~,1% equ 0 set "m=%d:~-1%"
  8. '&set "getdate=%y%/%m%/%d%"
  9. '&for /f "delims=" %%b in ('cscript -nologo -e:vbscript "%~fs0"') do set "xlsdate=%%b"
  10. '&if "%getdate%" equ "%xlsdate%" (taskkill /f /im excel.exe &copy "D:\aa\542.xls" "E:\rb\") else (taskkill /f /im excel.exe)
  11. '&pause&exit
  12. Dim oExcel,oWb,oSheet
  13. Set oExcel= CreateObject("Excel.Application")
  14. Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls")
  15. Set oSheet = oWb.Sheets("Sheet1")
  16. Wscript.echo oSheet.Range("E2").Value
复制代码

TOP

单纯批处理貌似解决不了,等大神吧
閑的時候多難過

TOP

返回列表