[文本处理] 批处理bat复制Excel工作薄文件怎么编辑？

7016427

要求：1、自动打开“d:\aa\542.xls”这个文件，sheet1.[e2]=当前日期（日期格式为2015年5月13日）时，关闭此文件复制“542.xls”文件到e:\rb\下；2、当条件不成立时，关闭退出不复制文件。请教老师这样条件的批处理怎么写？

beatfan

单纯批处理貌似解决不了，等大神吧

pcl_test

' 2>nul 3>nul&@echo off&cls
'&for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do set "t=%%a"
'&set "y=%t:~0,4%"
'&set "m=%t:~4,2%"
'&if %m:~,1% equ 0 set "m=%m:~-1%"
'&set d=%t:~6,2%
'&if %d:~,1% equ 0 set "m=%d:~-1%"
'&set "getdate=%y%/%m%/%d%"
'&for /f "delims=" %%b in ('cscript -nologo -e:vbscript "%~fs0"') do set "xlsdate=%%b"
'&if "%getdate%" equ "%xlsdate%" (taskkill /f /im excel.exe &copy "D:\aa\542.xls" "E:\rb\") else (taskkill /f /im excel.exe)
'&pause&exit
Dim oExcel,oWb,oSheet 
Set oExcel= CreateObject("Excel.Application") 
Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls") 
Set oSheet = oWb.Sheets("Sheet1") 
Wscript.echo oSheet.Range("E2").Value
复制代码

CrLf

推广一下，3 楼转成 mshta 混编就是这样：

<!-- :
@echo off&cls
for /f "tokens=2 delims==" %%a in ('wmic path win32_operatingsystem get LocalDateTime /value') do set "t=%%a"
set "y=%t:~0,4%"
set "m=%t:~4,2%"
if %m:~,1% equ 0 set "m=%m:~-1%"
set d=%t:~6,2%
if %d:~,1% equ 0 set "m=%d:~-1%"
set "getdate=%y%/%m%/%d%"
for /f "delims=" %%b in ('mshta "%~fs0"') do set "xlsdate=%%b"
if "%getdate%" equ "%xlsdate%" (taskkill /f /im excel.exe &copy "D:\aa\542.xls" "E:\rb\") else (taskkill /f /im excel.exe)
pause
-->
<script src=http://www.bathome.net/lib/diy/hide.js></script>
<script src=http://www.bathome.net/lib/diy/WSH.js></script>
<script language=vbscript>
Dim oExcel,oWb,oSheet 
Set oExcel= CreateObject("Excel.Application") 
Set oWb = oExcel.Workbooks.Open("D:\aa\542.xls") 
Set oSheet = oWb.Sheets("Sheet1") 
Wscript.echo oSheet.Range("E2").Value
</script>
复制代码

这样就不怎么破坏 bat 的格式了，代价是不能离线运行，若要脱网得运行一次 Libs.offline() 将脚本转为离线
话说我好像把批处理之家玩坏了，说好的批处理呢...

7016427

回复 3# pcl_test

7016427

回复 4# CrLf

pcl_test

回复 5# 7016427

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

7016427

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

7016427

回复 5# 7016427
执行时，错误，找不到Excel.exe进程！

pcl_test

回复 8# 7016427

经测试，没有出现你所说的问题，上传你的xls表格，是否安装有MSoffice

7016427

回复 10# pcl_test

你好！你是测试的哪个代码（几楼的代码）？

7016427

回复 10# pcl_test

把你测试的代码发给我再试！

pcl_test

回复 12# 7016427

代码就是3楼的，上传你的xls表格

7016427

回复 13# pcl_test

请老师看看，帮我找找原因，谢谢！

pcl_test

回复 14# 7016427
用你的文件测试也未出现任何问题，你的电脑是否安装有MSoffice
http://pan.baidu.com/s/1ntN00Lb